Zeile einfügen in Writer-Text-Tabelle per Makro

[Tim1202]

Hallo,

also mit Basic und Calc komm ich mittlerweile einigermaßen zurecht. Aber irgendwie ist das mit den Writertabellen wieder ganz anders.

Ich will in eine Writer-Tabelle eine Zeile einfügen und die Zellen mit Texten belegen.

Ich hab folgenden Code probiert:

Code: Alles auswählen

	Dim Table, oRows As Object
	Table = ThisComponent.getTextTables(0)
	
        'Zeile einfügen
	oRows=Table.getRows()
	oRows.InsertByIndex(1,1)
	
        'Text einfügen
	Table.getCellbyPosition(1,1).string = "Test1"

Der Code hält aber bei oRows=Table.getRows() da die Methode ihm nicht bekannt ist.

Wie funktioniert das richtig?

Vielen Dank im Vorraus für eure Mühen,

Timon

[Tim1202]

Hallo Moritz,

das funktioniert leider trotzdem nicht. Immer noch Fehlermeldung: Eigenschaft oder Methode nicht gefunden.

Ich benutze OOo 1.9 Beta.

Wenn ich die Ausführung vor der betroffenen Zeile anhalte und unten im "Beobachter" die Variable Table eingebe, ist der Typ "SwXTextTables". Somit hat müsste doch dann die Funktion zur Verfügung stehen, oder nicht!?!

Wäre über weitere Tipps erfreut!

Timon

[ykcim]

Tja, Du bist noch auf der falschen Ebene. Es gibt TextTables und TextTable.
Mit getTextTables erhälts Du den Zugriff auf alle Tabellen (Blöderweise führt Deine Indexierung (0) zu keinem Fehler). Danach mußt Du die gewünschte Tabelle auswählen.

Code: Alles auswählen

   Tables = ThisComponent.getTextTables
   
        'Zeile einfügen
   Table=Tables.getbyIndex(0)
   oRows=Table.getRows
   oRows.InsertByIndex(1,1)
   
        'Text einfügen
   Table.getCellbyPosition(1,1).string = "Test1"

mfg
Michael

[Tim1202]

Hallo Michael,

das war die Lösung! Vielen Dank!
Was doch der Plural alles ausmachen kann!?!

Grazie,

Timon