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

Added remove all pagebreaks option in advanced mode

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-06 14:50:48 +01:00
parent 082768d368
commit fa3ff2c16b
3 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
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 mark27
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark28
End Sub
@ -82,6 +82,10 @@ Private Sub cleanAccordingTo(dialog)
statusIndicator.Start(&quot;Загружаем стили из шаблона&quot;,100)
loadArticleStyles
EndIf
If dialog.getControl(&quot;removeManualPageBreaks&quot;).state = 1 Then
removeManualPageBreaks
EndIf
statusIndicator.end()
saveAndreload()
MsgBox &quot;Чистка завершена.&quot;
@ -499,7 +503,7 @@ Private Sub disposeAllBookmarks()
End Sub
Private Sub disposePageBreaks
Private Sub removeManualPageBreaks
oTextCursor = ThisComponent.Text.CreateTextCursor()
enum1 = ThisComponent.Text.createEnumeration
While enum1.hasMoreElements