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

  1. 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!