[cp] Updated Fix Table Properties macro

Change-Id: I7f8695789e1223df7bbb235fa6081ed91502ab99
Reviewed-on: https://gerrit.libreoffice.org/71852Reviewed-by: Andras Timar <andras.timar@collabora.com>
Tested-by: Andras Timar <andras.timar@collabora.com>

wizards/source/tools/Misc.xba

@@ -845,6 +845,7 @@ Sub FixTableProperties
 	sumSplit = 0
 	sumRelativeWidth = 0
 	sumRows = 0
+	sumPara = 0
 	oTables = ThisComponent.TextTables
 	For i = 0 To oTables.getCount() - 1
 		oTable = oTables(i)
@@ -865,12 +866,36 @@ Sub FixTableProperties
 				oRow.setPropertyValue("IsSplitAllowed", true)
 			End If
 		Next
+
+		sNames = oTable.getCellNames()
+		For k = LBound(sNames) To UBound(sNames)
+			oCell = oTable.getCellByName(sNames(k))
+			cType = oCell.getType()
+			If oCell.getType() = com.sun.star.table.CellContentType.TEXT Then
+				oCellCursor = oCell.createTextCursor()
+				oParEnum = oCell.createEnumeration()
+				Do While oParEnum.hasMoreElements()
+					oPar = oParEnum.nextElement()
+					leftMargin = oPar.getPropertyValue("ParaLeftMargin")
+					rightMargin = oPar.getPropertyValue("ParaRightMargin")
+					firstLineIndent = oPar.getPropertyValue("ParaFirstLineIndent")
+					'If any are < 0, consider bad, and reset all to 0
+					If leftMargin < 0 Or rightMargin < 0 Or firstLineIndent < 0 Then
+						sumPara = sumPara + 1
+						oPar.setPropertyValue("ParaLeftMargin", 0)
+						oPar.setPropertyValue("ParaRightMargin", 0)
+						oPar.setPropertyValue("ParaFirstLineIndent", 0)
+					End If
+				Loop
+			End If
+		Next
 	Next
 
 	s = "Out of " & sumTables & " table(s)" & CHR(13) & _
 		"Relative setting was added to: " & sumRelativeWidth & CHR(13) & _
 		"Property to enable breaking across pages was enabled for: " & sumSplit & CHR(13) & CHR(13) & _
-        "No. of rows property to enable breaking across pages was enabled for: " & sumRows & CHR(13) & CHR(13) & "Save the file afterwards!"
+		"No. of rows property to enable breaking across pages was enabled for: " & sumRows & CHR(13) & _
+		"No. of paragraphs in cells where paragraph properties were reset: " & sumPara & CHR(13) & CHR(13) & "Save the file afterwards!"
 	MsgBox s, 0, "Result"
 End Sub
 </script:module>