diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba index f5b0520..04e913c 100644 --- a/IPHRedaction/Clean.xba +++ b/IPHRedaction/Clean.xba @@ -15,6 +15,8 @@ disposePageBreaks disposeAllLinks disposeAllBookmarks + fixTableAnchors + statusIndicator.end() saveAndreload() End Sub @@ -146,6 +148,23 @@ Private Sub cleanFormatting End Sub +Private Sub fixTableAnchors() + Dim table As Object + Dim tables As Object + tables = ThisComponent.TextTables + Dim count As Long + count = ThisComponent.TextTables.getCount() + For i = 0 To count - 1 + table = tables.getByIndex(i) + If table.HoriOrient = 6 Then + table.HoriOrient = 2 + EndIf + If table.RelativeWidth = 0 Then + table.RelativeWidth = 100 + EndIf + Next +End Sub + Sub manualFontsToCharStyle Dim oDoc oDoc = Thiscomponent diff --git a/redaction.oxt b/redaction.oxt index 46124f6..0ab1c33 100644 Binary files a/redaction.oxt and b/redaction.oxt differ