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