diff options
author | Andras Timar <andras.timar@collabora.com> | 2017-06-13 05:17:53 -0700 |
---|---|---|
committer | Andras Timar <andras.timar@collabora.com> | 2018-04-12 02:20:36 -0700 |
commit | 2d851c2865236e12eb4240530a734b06f973fc7b (patch) | |
tree | 9a972acdacff369223263580800d49f6162442ee /wizards | |
parent | 7b264a2925ecfd954583433717d8dad9d19684db (diff) |
Fix Table Properties macro
Change-Id: I45e5b258ba8f739e3dc0043978488ee9e4ad74b4
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/tools/Misc.xba | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 2bf17d32e984..7a001683c9bd 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -838,4 +838,39 @@ End Sub Function CalIsLeapYear(ByVal iYear as Integer) as Boolean CalIsLeapYear = ((iYear Mod 4 = 0) And ((iYear Mod 100 <> 0) Or (iYear Mod 400 = 0))) 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" +End Sub </script:module> |