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