Doubt: what can I do to enumerate a texttable column?

[backupval]

Hello
My name´s Valério Farias, I'm brazilian

I need your help in write macro for texttables.

I want to know how to get the current select column, from current texttable, from current document.
And after to enumerate the select column.

I use the openoffice.org 1.1.0 brazilian version.

I obtained only to enumerate the fist column from first texttable, how you can see in next souce code:


Option Explicit
Dim oDocument as Object
Dim sDocumentTitle as String


Sub Main()
Dim oTable as Object
Dim oRows as Object
Dim oDocuText as Object
Dim oAutoTextCursor as Object
Dim oAutoTextContainer as Object
Dim oAutogroup as Object
Dim oAutoText as Object
Dim oCharStyles as Object
Dim oContentStyle as Object
Dim oHeaderStyle as Object
Dim oGroupTitleStyle as Object
Dim n, m, iAutoCount, tmp as Integer
BasicLibraries.LoadLibrary("Tools")
sDocumentTitle = "Installed AutoTexts"

oTable = odocument.texttables(0) ' table 1
'oTable = oDocument.currentSelection .............If I run with this line return a error


If Not IsNull(oTable) Then

oDocuText = oDocument.Text

' The Characterstyle for the Header that describes the Title of Autotextgroups
oGroupTitleStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle")


oGroupTitleStyle.CharWeight = com.sun.star.awt.FontWeight.BOLD
oGroupTitleStyle.CharHeight = 14

' The Characterstyle for the Header that describes the Title of Autotextgroups
oHeaderStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle")
' oCharStyles.InsertbyName("AutoTextHeading", oHeaderStyle)
oHeaderStyle.CharWeight = com.sun.star.awt.FontWeight.BOLD


oAutoTextCursor = oDocuText.CreateTextCursor()

For n = 0 To otable.rows.count - 1

InsertStringToCell(n+1, oTable.GetCellbyPosition(0, n), "TableContent")

Next n



End If
End Sub


Sub InsertStringToCell(sCellString as String, oCell as Object, sCellStyle as String)
Dim oCellCursor as Object
oCellCursor = oCell.CreateTextCursor()
'oCellCursor.CharStyleName = sCellStyle
oCell.Text.insertString(oCellCursor,sCellString,False)
oDocument.CurrentController.Select(oCellCursor)
End Sub

[pitonyak]

Hello Valério Farias, I see that you made it here. I caught up on some of my work until my copy editor sends me more so I figured that I would tackle some of your questions. In your code, you ahve the following:

[Danad]

As a complement to Andrew post, you can also get the document <Introdução ao OpenOffice.org Basic - v2> here:

www.openoffice.org.br/saite/ajuda/anexosdocs/38-Introducao_OOo_Basic_v2.zip

and look for section <Tabelas> to learn a little more.

HTH

[Guest]

Thak you so much for you help
I finish the macro.
Now I have to distribute it in about 200 Computers here in the University.

Macro code:

[backupval]

Thank you so much for you help
I finish the macro.
Now I have to distribute it in about 200 Computers here in the University.

Macro code:

[davefloripa]

ola,
eu li que vc é brasileiro...
e eu tbm sou...
vc entende bem de open office..APi...etc???

poderias me dar uma ajuda...

valeu,

abraço