[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

@@ -841,36 +841,61 @@ End Function
 
 ' Sub that fixes various issues in tables imported from DOC/DOCX
 Sub FixTableProperties
-    sumTables = 0
-    sumSplit = 0
-    sumRelativeWidth = 0
-    sumRows = 0
-    oTables = ThisComponent.TextTables
-    For i = 0 To oTables.getCount() - 1
-        oTable = oTables(i)
-        sumTables = sumTables + 1
-        If oTable.getPropertyValue("Split") = false Then
-            sumSplit = sumSplit + 1
-            oTable.setPropertyValue("Split", true)
-        End If
-        If oTable.getPropertyValue("HoriOrient") <> 6 And _
-           oTable.getPropertyValue("IsWidthRelative") = false Then
-            sumRelativeWidth = sumRelativeWidth + 1
-            oTable.setPropertyValue("RelativeWidth", 100)
-        End If
-        For j = 0 To oTable.getRows.getCount - 1
-            oRow = oTable.getRows.getByIndex(j)
-            If oRow.getPropertyValue("IsSplitAllowed") = false Then
-                sumRows = sumRows + 1
-                oRow.setPropertyValue("IsSplitAllowed", true)
-            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!"
-    MsgBox s, 0, "Result"
+	sumTables = 0
+	sumSplit = 0
+	sumRelativeWidth = 0
+	sumRows = 0
+	sumPara = 0
+	oTables = ThisComponent.TextTables
+	For i = 0 To oTables.getCount() - 1
+		oTable = oTables(i)
+		sumTables = sumTables + 1
+		If oTable.getPropertyValue("Split") = false Then
+			sumSplit = sumSplit + 1
+			oTable.setPropertyValue("Split", true)
+		End If
+		If oTable.getPropertyValue("HoriOrient") <> 6 And _
+		   oTable.getPropertyValue("IsWidthRelative") = false Then
+			sumRelativeWidth = sumRelativeWidth + 1
+			oTable.setPropertyValue("RelativeWidth", 100)
+		End If
+		For j = 0 To oTable.getRows.getCount - 1
+			oRow = oTable.getRows.getByIndex(j)
+			If oRow.getPropertyValue("IsSplitAllowed") = false Then
+				sumRows = sumRows + 1
+				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) & _
+		"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>