OpenOffice.info

Code: Alles auswählen

Dim Doc As Object
Dim TextTables As Object
Dim Table As Object, oZelle as variant
Dim I As Integer, j as integer
dim aZellNamen()
Doc = ThisComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
   Table = TextTables(I)
   Table.width = 12000 '12 cm
Next I

Code: Alles auswählen

Dim Doc As Object
Dim TextTables As Object
Dim Table As Object, oZelle as variant
Dim I As Integer, j as integer
dim aZellNamen()
Doc = ThisComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
   Table = TextTables(I)
   Table.width = 12000 '12 cm
   Table.HoriOrient = 1 'rechts
Next I

Code: Alles auswählen

Dim Doc As Object
Dim TextTables As Object
Dim Table As Object, oZelle as variant
Dim I As Integer, j as integer
dim aZellNamen()
Doc = ThisComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
   Table = TextTables(I)
   Table.width = 10000 '12 cm
   Table.HoriOrient = 7 'von links
   Table.LeftMargin = 2000
Next I

Code: Alles auswählen

Dim Doc As Object
Dim TextTables As Object
Dim Table As Object, oZelle as variant
Dim I As Integer, j as integer
dim aZellNamen()
Doc = ThisComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
   Table = TextTables(I)  'liefert Dir die einzelne Tabelle als Objekt
   aZellNames = table.CellNames()   'liefert Dir die Namen der Zellen als Liste (array)
   REM jetzt über Zellen iterieren
   For j = 0 to ubound(aZellNames)
     oZelle = table.getCellbyName(aZellNames(j))   'Du erhälst das Objekt der einzelnen Zelle
     oZelle.Start.ParaStyleName = "meineVorlage"    'weist die Absatzvorlage "meine Vorlage" zu
   next j
 
Next I

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

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())