ich übertrage per Marko Werte von Excel in meine Word Vorlage. Wenn die Zeilen in der Word Tabelle nicht reichen würde ich die gerne erweitern. Aktuell erhalte ich immer den Laufzeitfehler 5 ich weiß aber noch nicht warum. Kann es sein das der Code so nicht ausgeführt werden kann weil das Word Dokument das aktive Fenster ist?
Sub Makro1()
Dim appWord As Object
Dim docTest As Object
Dim WorkbookName As String
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("xxxx.docx")
appWord.Visible = True
docTest.Activate
docTest.Tables(1).Cell(1, 2).Range = Sheets("xxxx").Range("B9")
If Sheets("xxxx").Cells("B22") "Insert new line" And Sheets("xxxx").Cells("B22") "" _
Then
docTest.Tables(2).Rows.Add
End If
Set docTest = Nothing
Set appWord = Nothing
End Sub