Danke fĂĽr die schnelle Hilfe. Das klappt nun soweit.
Nun hab ich noch ein kleines Problem:
Wie kann ich eine Tabelle von Navison erstellen mit der Eigenschaft "Inhalt automatisch anpassen"
Ich hab mit einem Makro eine Tabelle erstellt und danach die Eigenschaft bestimmt. Das Makro spuckt mir den VBCode aus:
- Code: Alles auswählen
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Tabellengitternetz" Then
.Style = "Tabellengitternetz"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
Also mein Problem ist der Tabelle diesen Parameter "wdAutoFitContent" mitzugeben.
Mein bisheriger CAL Code zur Erstellung der Tabelle ohne diese Eigenschaft:
- Code: Alles auswählen
WdRange := WdApp.Selection.Range;
WdApp.ActiveDocument.Tables.Add(WdRange,PAR_INT_Row,PAR_INT_Column);
WdApp.Selection.Style := 'Tabellengitternetz';