Olá!
Estou estudando macros através da apostila "Programando Macros Para O OpenOffice.org".
Porém ao tentar executar o código abaixo no Writer
Sub editaTabela
oDoc = StarDesktop.getCurrentComponent()
oTab = oDoc.createInstance("com.sun.star.text.TextTable")
oTab.initialize ( 5, 3 )
oTxt = oDoc.getText()
oCur = oTxt.createTextCursor()
oTxt.insertTextContent (oCur, oTab, False)
Dim oCelula As Object
oCelula = oTab.getCellByName("A1")
oCelula.setString("Coluna A")
oCelula = oTab.getCellByName("B1")
oCelula.setString("Coluna B")
oCelula = oTab.getCellByName("C1")
oCelula.setString("Coluna C")
Dim oCurTab As Object
oCurTab = oTab.createCursorByCellName(oTab.CellNames(0))
oCurTab.gotoStart(False)
oCurTab.goRight(2, True)
oCurTab.paraStyleName = "Heading"
MsgBox oCurTab.getRangeName()
Dim sNomes() As Variant
Dim sNomeCelula As String
sNomes = Array("A","B","C")
For i% = 1 To 4
For j% = 1 To 3
sNomeCelula = sNomes(j%-1)+ Str$(i%+1)
oCelula = oTab.getCellByName(sNomeCelula)
If (j% - 1 = 2) Then
oCelula.setValue(i% + 1)
Else
oCelula.setString(sNomeCelula)
End If
Next j%
Next i%
oCelula = oTab.getCellByName("C5")
oCelula.setFormula("sum <C2:C4>")
oCurTab.gotoCellByName("A5", False)
oCurTab.goRight(1, True)
oCurTab.mergeRange()
oCelula = oTab.getCellByName("A5")
oCelula.setString("Total")
End Sub
obtenho a mensagem:
Desde já, agradeço pela ajuda de vocês.