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

Added timestamp

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-01 18:41:01 +02:00
parent adefad19df
commit 665895dd9c
4 changed files with 25 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Redaction/Clean.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark56
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark57
End Sub
@ -172,6 +172,7 @@ Private Sub quietCleaning
statusIndicator.Start(getTranslation(&quot;statusLoadingStylesFromTemplate&quot;),100)
loadArticleStyles
removeLibs
addTimeStampToProperties
statusIndicator.end()
saveAndreload()
MsgBox getTranslation(&quot;cleaningFinished&quot;)
@ -1740,5 +1741,18 @@ sub saveAsDocAndBackToODT
If FileExists(tmpName) Then
Kill(tmpName)
End If
end sub
end Sub
Sub addTimeStampToProperties
Dim docProps As Object
Dim userProps As Object
Dim curTime As String
On Error Goto exceptionHandlerProps
curTime = Now()
docProps = ThisComponent.getDocumentProperties()
userProps = docProps.UserDefinedProperties()
userProps.addProperty(curTime ,128,&quot;Cleaned &quot; &amp; redactionExtensionVersion)
exceptionHandlerProps:
Resume Next
End Sub
</script:module>