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>