https://bugs.documentfoundation.org/show_bug.cgi?id=127042
Oliver Brinzing <oliver.brinz...@gmx.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |oliver.brinz...@gmx.de
--- Comment #2 from Oliver Brinzing <oliver.brinz...@gmx.de> ---
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
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
