From 82e7e7df9ac2b5ee07e1a51d4a3719d550551e38 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Sun, 12 Jul 2020 14:54:28 +0200
Subject: [PATCH] Save cleaned version

---
 Redaction/Clean.xba | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index 0a662d7..cd3125b 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.xba
@@ -177,6 +177,7 @@ Private Sub quietCleaning
 	loadArticleStyles
 	removeLibs
 	addTimeStampToProperties
+	saveCleanedVersion(&quot;Standard cleaning&quot;)
 	statusIndicator.end()
 	saveAndreload()
 	MsgBox getTranslation(&quot;cleaningFinished&quot;)
@@ -1761,4 +1762,17 @@ Sub addTimeStampToProperties
 	exceptionHandlerProps:
 	Resume Next
 End Sub
+
+
+
+sub saveCleanedVersion(comment)
+	dim document   as object
+	dim dispatcher as object
+	document   = ThisComponent.CurrentController.Frame
+	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
+	dim args1(0) as new com.sun.star.beans.PropertyValue
+	args1(0).Name = &quot;VersionComment&quot;
+	args1(0).Value = comment
+	dispatcher.executeDispatch(document, &quot;.uno:Save&quot;, &quot;&quot;, 0, args1())
+end sub
 </script:module>
\ No newline at end of file