Hallo zusammen,
ich wollte per Makro sämtlichen Tabellen im Writer Document eine andere Absatzvorlage zuweisen (stets die selbe),
frage mich aber, ob das z.Z. überhaupt möglich ist.
Die Schleife hatte ich mir so wie in diesem Beispiel vorgestellt:
Code: Alles auswählen
Dim Doc As Object
Dim TextTables As Object
Dim Table As Object
Dim I As Integer
Doc = ThisComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
Table = TextTables(I)
' Editing table
Next I
'Table' aus dem voranstehenden Beispiel wollte ich dann ungefähr so wie nachstehend verwenden:
Code: Alles auswählen
dim dispatcher as object
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Template"
args1(0).Value = "Tabellen Inhalt"
args1(1).Name = "Family"
args1(1).Value = 2
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem - 'Table' soll dann in einer Schleife als Argument für '.executeDispatch' verwendet werden...
dispatcher.executeDispatch(Table, ".uno:StyleApply", "", 0, args1())
Jedoch kann ich 'Table' hier wohl aber gar nicht so direkt wie in meinem Beispiel benutzen.
Desweitern ist mir nicht klar, ob man '.uno:StyleApply' überhaupt auf eine einzelne Tabelle anwenden kann.
Der Hintergrund ist der, daß ich mit ein großen Dokument zu tun habe (u.A. ca. 1500 Tabellen), daß mal aus einem Konverter gekommen ist,
und bei dem Sämtliche Tabellen falsche Vorlagen nebst sonstige Einstellungen haben.
Kennt sich jemand von euch vielleicht damit aus?