Mit dem folgenden
Sub transferiere ich zwei Tabellen an eine Bookmark in einem Worddokument.
Ich möchte gerne die Tabelle ansprechen und formatieren (Autoanpassen an Fenster) & Text _
zentrieren .
Es hängt sich aber an dieser Stelle auf: ActiveDocument.Tables(2).AutoFitBehavior _
wdAutoFitWindow
Wisst ihr wie ich die Tabelle (im Word) ansprechen kann?
Besten Dank und liebe Grüsse
Dennis
Sub NachWord()
' Diese Prozedur kreiert das Word-Dokument aus den Diagrammen
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Profiles\ct\Desktop\Excel\AUSSCH~1.DOC")
' Kopiervorgang: Kopiert für jeden Eintrag die Tabelle
' ALLGD
Worksheets("ALLGD").Range("TALLGD[#All]").Copy
docTest.Activate
appWord.Visible = True
docTest.Bookmarks("BTALLGD").Select
appWord.Selection.PasteSpecial
Application.CutCopyMode = False
ActiveDocument.Tables(2).AutoFitBehavior wdAutoFitWindow
' UWSD
Worksheets("UWSD").Range("TUWSD[#All]").Copy
docTest.Activate
appWord.Visible = True
docTest.Bookmarks("BTUWSD").Select
appWord.Selection.PasteSpecial
Application.CutCopyMode = False
ActiveDocument.Tables(6).AutoFitBehavior wdAutoFitWindow
End Sub