[Libreoffice-bugs] [Bug 127042] Unable to modify TablecolumnSeparator in Writer using VB OOO

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=127042

Oliver Brinzing <oliver.brinzing at gmx.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |oliver.brinzing at gmx.de

--- Comment #2 from Oliver Brinzing <oliver.brinzing at 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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20190823/f407c849/attachment.html>