.Selection.Font.Size = font_mittel
.Selection.Font.Bold = wdToggle
.Selection.TypeText Text:=
"Kundenkontakt"
.Selection.Font.Size = font_klein
.Selection.Font.Bold = wdToggle
.Selection.Font.Bold = wdToggle
.Selection.TypeParagraph
.ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=10, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With
.Selection.Tables(1)
If
.Style <> ctabstyle
Then
.Style = ctabstyle
End
If
.ApplyStyleHeadingRows =
True
.ApplyStyleLastRow =
False
.ApplyStyleFirstColumn =
True
.ApplyStyleLastColumn =
False
.ApplyStyleRowBands =
True
.ApplyStyleColumnBands =
False
End
With