Spaltenbreite in Word-Tabelle einstellen

[p80286]

Zitat von Jumpy:

Ist die Tabelle den vorher leer (ohne Zeile)? Hast du es mal in VBA versucht, wie es dann aussieht?

hat er nicht weil der Recorder sich mal wieder von der besten Zickenseite zeigt.
Ich hab da mal was gebastelt:

Code:

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Tabellenraster" Then
            .Style = "Tabellenraster"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
        .Rows.Add
        .Rows.Add
    End With

Bis auf die beiden .Rows.Add kommt das aus dem Macrorecorder. Da Add als Parameter "BeforeRow" erwartet, kann es durchaus sein, daß "emptyParam" und ein nicht vorhandener Parameter unterschiedliche Ergebnisse erzeugt.

Zitat:

Function Add([BeforeRow]) As Row
Element von Word.Rows

Gruß
K-H

P.S. VBA 7.1 / Word365