Tabellen umformatieren

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Tabellen umformatieren

Re: Tabellen umformatieren

von turtle47 » Di, 22.07.2008 06:15

Hi Jörg,
bliddi hat geschrieben: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

Re: Tabellen umformatieren

von turtle47 » Mo, 21.07.2008 10:32

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

Nach oben