Hallo Leute,
ich habe ein kleines Problem.
Ich möchte mit einem Makro eine Tabelle bei Word erstellen und es nach belieben formatieren.
Anschließend möchte ich bestimmte Zellen verbinden und vergrößern (bzw. verkleinern).
Ich habe schon folgenden Code.
Sub Tabellenerstellung()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=8, NumColumns:= _
10, 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
Heraus kommt nur eine Standardtabelle
Sie sollte jedoch ungefähr so aussehen:
|
|
|
|
|
|
|
|
|
2013
|
Datum
|
Name
|
Benennung:
|
|
|
|
|
Bearb.:
|
01.04.
|
|
Datenblatt
|
|
|
|
|
Geprüft :
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
123 45 678
|
|
|
|
|
|
|
|
|
10
|
VZ-Daten geä.
|
|
|
Zust
|
Änderung
|
Tag
|
Name
|
Kann mir wer helfen?
Besten Dank !!
Julliette
|