https://bugs.documentfoundation.org/show_bug.cgi?id=127042
Oliver Brinzing <[email protected]> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |[email protected]
--- Comment #2 from Oliver Brinzing <[email protected]> ---
it works for me woth LO 6.3.0.4 if i use:
oTableRep.TableColumnSeparators = objColumnSeparator
instead of:
oTableRep.SetPropertyValue "TableColumnSeparators", objColumnSeparator
Sub Main()
Dim arg()
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.CreateInstance("com.sun.star.frame.Desktop")
Set oDoc =
oDesk.loadComponentFromURL("file:///d:/downloads/BugTablecolumnSeparator.odt",
"_blank", 0, arg)
Set oRepTables = oDoc.getTextTables
Set oTableRep = oRepTables.GetByName("tbl_table1")
objColumnSeparator =
oTableRep.GetPropertyValue("TableColumnSeparators")
objColumnSeparator(0).Position = 1000
objColumnSeparator(1).Position = 2000
objColumnSeparator(2).Position = 3000
objColumnSeparator(3).Position = 4000
oTableRep.TableColumnSeparators = objColumnSeparator
' oTableRep.SetPropertyValue "TableColumnSeparators", objColumnSeparator
MsgBox "..."
oDoc.Close (True)
Set oDoc = Nothing
End Sub
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
