[Libreoffice-bugs] [Bug 157053] Writer: error for re-used variable when macro changes the witdh of cells in TextTable

[bugzilla-daemon]

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

--- Comment #2 from Kamil Landa <kam...@post.cz> ---
It isn't fix of problem, but it is easy to bypass bug now. If there is used 2nd
variable for oRow.TableColumnSeparators, then this 2nd variable is usable
repeatedly without bug. 
So bypass is -> use one variable for initial settings (without repeated
aSeps=oRow.TableColumnSeparators, only aSeps(X).Position=...), and 2nd variable
for potential changes. 


Sub changeWidthsInTextTable
        dim oDoc as object, oTable as object, oVCur as object, oRow as object,
oCell as object, oTableCursor as object, aSeps()
        oDoc=ThisComponent
        rem insert table
        oTable=oDoc.createInstance("com.sun.star.text.TextTable")
        with oTable
                .initialize(3, 4) '3 rows, 4 columns
                .RelativeWidth=100
                .HoriOrient=0
        end with
        oVCur=oDoc.CurrentController.ViewCursor
        oDoc.Text.insertTextContent(oVCur.End, oTable, false)

        '1st change of cell-width -> OK
        oRow=oTable.Rows(0) '1st row
        aSeps=oRow.TableColumnSeparators
        aSeps(0).Position=500
        oRow.TableColumnSeparators=aSeps()

        '2nd change
        oRow=oTable.Rows(2) '3rd row

        'aSeps=oRow.TableColumnSeparators

        aSeps(0).Position=1500
        oRow.TableColumnSeparators=aSeps()

        rem functional with one variable aSeps2() used more times
        dim a$, i%, aSeps2()
        const max=3
        for i=1 to max
                a=CInt(inputbox("Index of row - step " & i & "/" & max, "Change
cell in 1st column to 80% width", i-1))
                oRow=oTable.Rows(a)
                aSeps2=oRow.TableColumnSeparators 'no error
                aSeps2(0).Position=aSeps2(0).Position*0.8 'set only 80% of
width
                oRow.TableColumnSeparators=aSeps2()
        next i
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.