Sub
TabelleEinfügen()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
4, 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
End
With
End
Sub