Makro in Word

Computer: Software & Programmierung Office Software
1

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

2

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