litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Save cleaned version

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-12 14:54:28 +02:00
parent 120328a506
commit 82e7e7df9a
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Redaction/Clean.xba
View file

@ -177,6 +177,7 @@ Private Sub quietCleaning
loadArticleStyles loadArticleStyles
removeLibs removeLibs
addTimeStampToProperties addTimeStampToProperties
saveCleanedVersion("Standard cleaning")
statusIndicator.end() statusIndicator.end()
saveAndreload() saveAndreload()
MsgBox getTranslation("cleaningFinished") MsgBox getTranslation("cleaningFinished")
@ -1761,4 +1762,17 @@ Sub addTimeStampToProperties
exceptionHandlerProps: exceptionHandlerProps:
Resume Next Resume Next
End Sub End Sub
sub saveCleanedVersion(comment)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "VersionComment"
args1(0).Value = comment
dispatcher.executeDispatch(document, ".uno:Save", "", 0, args1())
end sub
</script:module> </script:module>