Daten von Excel nach Word via VBA
21.10.2012 15:50:55
Excel
ich habe wie hier auch schonmal geschieben den code Verwendet meiner sieht jetz so aus:
Private Sub CommandButton1_Click()
Dim appWord As Object
Dim docTest As Object
Dim Test As String
Dim Test2 As String
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Vorlage Brief_C41.dot")
appWord.Visible = True
docTest.Activate
Test = "TESTE22222"
Test2 = "TEST5"
docTest.Bookmark("Name_5").Range.Text = Range("A1")
docTest.Bookmark("Test").Range.Text = aktive.Cells("A1")
End Sub
DAS Problem ich bekomme immer einen Laufzeitfehler in der vorletzten Zeile bei der Übertragung der Daten zu Word. DAs Worddokument öffnet sich dort sind auch die TExtmarken eingetragen jedoch kann ich den Fehler in den letzten beiden Zeilen nicht beheben auch nicht wenn ich nur die Variable Test oder meinen Text in "" "meinen Text" eintage. Kann mir jemand helfen wo mein Fehler liegt ?