diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba index 879fee0..322db3a 100644 --- a/IPHRedaction/Clean.xba +++ b/IPHRedaction/Clean.xba @@ -23,12 +23,26 @@ Sub cleanButton fixTableWidth fixDrawingAnchors fixFrequentMistakes + removeFirstElementPageBreak removeUserPageStyles loadArticleStyles statusIndicator.end() saveAndreload() End Sub +Private Sub removeFirstElementPageBreak + enum1 = ThisComponent.Text.createEnumeration + If enum1.hasMoreElements Then + enum1Element = enum1.nextElement + If enum1Element.supportsService("com.sun.star.text.Paragraph") OR enum1Element.supportsService("com.sun.star.text.TextTable") Then + If enum1Element.BreakType <> com.sun.star.style.BreakType.NONE Then + enum1Element.PageDescName = "" + enum1Element.BreakType = com.sun.star.style.BreakType.NONE + EndIf + EndIf + EndIf +End Sub + Private Sub unicodeSymbolsConversion Dim newFontName As String newFontName = "IPH Astra Serif" @@ -872,4 +886,4 @@ Private Function getStyleNames(oFamily,bLocalized as Boolean, _ Endif xArray(iUB) = vNextElement End Sub - \ No newline at end of file + diff --git a/description.xml b/description.xml index 83c34bc..2478699 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"> - + Redaction for publishing in Institute of philosophy diff --git a/redaction.oxt b/redaction.oxt index 27929de..9e7c3e0 100644 Binary files a/redaction.oxt and b/redaction.oxt differ