From fa3ff2c16b39bcc3f613a4bdecd77744ef04d36b Mon Sep 17 00:00:00 2001 From: Georgy Litvinov Date: Fri, 6 Mar 2020 14:50:48 +0100 Subject: [PATCH] Added remove all pagebreaks option in advanced mode --- Redaction/Clean.xba | 8 ++++++-- Redaction/CleaningDialog.xdl | 7 ++++--- description.xml | 2 +- 3 files changed, 11 insertions(+), 6 deletions(-) diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index 0d37bfc..e6d6c2f 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark27 +Sub mark28 End Sub @@ -82,6 +82,10 @@ Private Sub cleanAccordingTo(dialog) statusIndicator.Start("Загружаем стили из шаблона",100) loadArticleStyles EndIf + If dialog.getControl("removeManualPageBreaks").state = 1 Then + removeManualPageBreaks + EndIf + statusIndicator.end() saveAndreload() MsgBox "Чистка завершена." @@ -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 diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index 8effc44..1ad87aa 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -1,10 +1,10 @@ - + - + - + @@ -17,5 +17,6 @@ + \ No newline at end of file diff --git a/description.xml b/description.xml index 5507920..46e9430 100644 --- a/description.xml +++ b/description.xml @@ -3,7 +3,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + Cleaning and validation documents for publishing in html and epub with pagination