Remove pagebreak from first table or para

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
-</script:module>
+</script:module>

description.xml

@@ -3,7 +3,7 @@
              xmlns:dep="http://openoffice.org/extensions/description/2006"
              xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction" />
-  <version value="0.2.6" />
+  <version value="0.2.7" />
   <platform value="all" />
   <display-name>
     <name lang="en">Redaction for publishing in Institute of philosophy</name>