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

Removed footnotes cleaning option

Browse source
This commit is contained in:
Georgy Litvinov 2020-04-03 12:39:54 +02:00
parent 1137e95152
commit 861813815e
2 changed files with 21 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

9
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 mark37
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark38
End Sub
@ -47,10 +47,6 @@ Private Sub cleanAccordingTo(dialog As Object)
statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)
cleanFormatting
EndIf
If dialog.getControl(&quot;resetFootnotesStyle&quot;).state = 1 Then
statusIndicator.Start(&quot;Очищаем стили сносок&quot;,100)
resetFootnotesStyle
EndIf
If dialog.getControl(&quot;replaceWhiteBackground&quot;).state = 1 Then
statusIndicator.Start(&quot;Заменяем белый фон на прозрачный&quot;,100)
replaceWhiteBackgroundWithTransparent
@ -117,7 +113,6 @@ Private Sub quietCleaning
unicodeSymbolsConversion
statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)
cleanFormatting
resetFootnotesStyle
removeUnusedStyles
statusIndicator.Start(&quot;Удаляем гиперссылки&quot;,100)
removeHyperlinks
@ -630,6 +625,8 @@ Private Sub cleanFormatting
replaceBaseWithStandard()
resetFootnotesStyle
removeDirectFormatting()
convertUserFieldsToFormatting