Tabellen umformatieren

[turtle47]

Hallo Jörg,

folgender Code verändert die erste Spalte in allen Tabellen:

Code: Alles auswählen

sub Spaltenbreite_Tabelle
	Dim oTable As Object
	Dim tabs()
	oDoc=ThisComponent
	oTables = oDoc.GetTextTables()
	Anzahl = oTables.getcount
	for i = 0 to Anzahl -1
	oTable = odoc.texttables(i)
	tabs= oTable.TableColumnSeparators
	tabs(0).position= 2355 'Wert 2355 eventuell anpassen
	oTable.TableColumnSeparators=tabs()
	next i
end sub

Vielleicht musst Du den Wert 2355 in Zeile

Code: Alles auswählen

tabs(0).position= 2355 'Wert 2355 eventuell anpassen

etwas modifiziern.

Hilft das weiter?

Jürgen

[turtle47]

Hi Jörg,

Wie könnte man die tolle Funktion auf Tabellen z.B. mit 2 Spalten begrenzen?

In dem man folgenden Code verwendet:

Code: Alles auswählen

sub Spaltenbreite_Tabelle
   Dim oTable As Object
   Dim tabs()
   oDoc=ThisComponent
   oTables = oDoc.GetTextTables()
   Anzahl = oTables.getcount
   for i = 0 to Anzahl -1
   oTable = odoc.texttables(i)
   mycols=oTable.getColumns()
   Anz_Col=mycols.getcount()
   if Anz_Col = 2 Then 
   tabs= oTable.TableColumnSeparators
   tabs(0).position= 2355 'Wert 2355 eventuell anpassen
   oTable.TableColumnSeparators=tabs()
   end if
   next i
end sub

Ich wünsche noch fröhliches Schaffen.

Jürgen