<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body><span class="vcard"><a class="email" href="mailto:oliver.brinzing@gmx.de" title="Oliver Brinzing <oliver.brinzing@gmx.de>"> <span class="fn">Oliver Brinzing</span></a>
</span> changed
<a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - Unable to modify TablecolumnSeparator in Writer using VB OOO"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=127042">bug 127042</a>
<br>
<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>What</th>
<th>Removed</th>
<th>Added</th>
</tr>
<tr>
<td style="text-align:right;">CC</td>
<td>
</td>
<td>oliver.brinzing@gmx.de
</td>
</tr></table>
<p>
<div>
<b><a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - Unable to modify TablecolumnSeparator in Writer using VB OOO"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=127042#c2">Comment # 2</a>
on <a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - Unable to modify TablecolumnSeparator in Writer using VB OOO"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=127042">bug 127042</a>
from <span class="vcard"><a class="email" href="mailto:oliver.brinzing@gmx.de" title="Oliver Brinzing <oliver.brinzing@gmx.de>"> <span class="fn">Oliver Brinzing</span></a>
</span></b>
<pre>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</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>