|
Hallo!
Ich habe ein Berichtsheft (word) in das aus Excel die Daten der Schüler eingetragen werden sollen (Bookmarks).
Wollte also, dass excel die Daten in das Berichtsheft überträgt und dann druckt.
Sub BerichtsheftDrucken()
Dim Berichtsheft As Object
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
Set Berichtsheft = appWord.Documents.Add("\xxx\Berichtsheft.docx")
appWord.Visible = True
Berichtsheft.Activate
Berichtsheft.Bookmarks("Anrede").Range.Text = Range("Anrede")
Berichtsheft.Bookmarks("Geburtsdatum").Range.Text = Range("Geburtsdatum")
Berichtsheft.Bookmarks("Lehrgangsbeginn").Range.Text = Range("Lehrgangsbeginn")
Berichtsheft.Bookmarks("Lehrgangsende").Range.Text = Range("Lehrgangsende")
Berichtsheft.Bookmarks("Nachname").Range.Text = Range("Nachname")
Berichtsheft.Bookmarks("PLZOrt").Range.Text = Range("PLZOrt")
Berichtsheft.Bookmarks("StrasseHausnummer").Range.Text = Range("StrasseHausnummer")
Berichtsheft.Bookmarks("Vorname").Range.Text = Range("Vorname")
Set Berichtsheft = Nothing
Set appWord = Nothing
End Sub
'bis zu diesem Punkt sollte er das Berichtsheft an sich befüllt haben?
'dachte, das ich dann eine Schleife mache und er die Zeilen dann Stück für Stück durchgeht und das Makro immer wieder ausführt
'beim Punkt "Berichtsheft.Activate" öffnet er das word dokument im Debugger, dann kommt in der folgenden Zeile: "Laufzeitfehler13 Typen unverträglich"
Hat jemand eine Idee?
Mfg
Matthias
|