word Format Makro True stefan

Makro in Word

Von: , Frage gestellt am Mi, 22. Nov 2000

Hallo Leutz
kann mir jemand ein Makro für Word schreiben das mir alle meine Tabellen (varierende Anzahl>50) auf optimale Spaltenbreite anpaßt ?

Vielen Dank !
Gruß Stefan

Meine Versuche scheiterten leider kläglich !

Sub tabs()
Dim I As Object, fcount As Object
fcount = ActiveDocument.Tables.Count
If fcount >= 1 Then
For Each I In fcount
Selection.Tables(I).AutoFormat Format:=wdTableFormatSimple1, ApplyBorders _
:=True, ApplyShading:=True, ApplyFont:=True, ApplyColor:=True, _
ApplyHeadingRows:=True, ApplyLastRow:=False, ApplyFirstColumn:=True, _
ApplyLastColumn:=False, AutoFit:=True
Next I
End If
End Sub

1 Antworten zu dieser Frage

Antwort von nach 3 Stunden hilfreich

Re: Makro in Word

kann mir jemand ein Makro für Word schreiben das mir alle
meine Tabellen (varierende Anzahl>50) auf optimale
Spaltenbreite anpaßt ?
versuchs doch mal damit:

Sub AutoSize()
Dim Tabelle As Table
Dim Spalte As Column
Dim Zelle As Cell
For Each Tabelle In ActiveDocument.Tables
For Each Spalte In Tabelle.Columns
Spalte.Cells.AutoFit
Next
Next
End Sub

viel spass

erwin

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!