Durch ein Makro fülle ich über eine Excel Tabelle Daten in eine Word Dokumenten Vorlage die die erzeugten Dokumente dann auch
ausdruckt. Das funktioniert auch alles nur hänge ich jetzt an einem Punkt bei dem ich nicht weiterkomme und hoffe, dass mir
jemand dabei helfen kann.
Die Dokumentenvorlage hat in der Kopfzeile den Dateinamen "Fragebogen" der wenn man die Kopfzeile bearbeitet als
Feldnamen "FileName" zu sehen ist. Durch Ausführen des Makros wird aus der Dokumentenvorlage ein Dokument erzeugt
und erhält dann den Namen "Dokument1.docx". Das Dokument, welches ausgedruckt wird sollte aber seinen ursprünglichen
Namen beibehalten.
Vielen Dank für Eure Unterstützung
Klaus
hier nochmal das Skript
Sub DatennachWord()
'Dimmensionieren
Dim AppWord As Object
Dim strDoc As String
Dim objDialog As Object
Dim Test As Object
'Umgebung allgemein
Set AppWord = CreateObject("Word.Application")
'Umgebung der Dokumentenvorlagen
Set Test = AppWord.Documents.Add("C:\Test\Fragebogen.dotx")
'Setzen ob Dokument sichbar "True" oder nicht sichbar "False"
AppWord.Visible = True
'Dokumente aktivieren
Test.Activate
'Bookmarks (Textmarken für Dokument Fragebogen)
Test.Bookmarks("Name").Range.Text = Range("Name")
Test.Bookmarks("PLZ").Range.Text = Range("PLZ")
Test.Bookmarks("Ort").Range.Text = Range("Ort")
Test.Bookmarks("Strasse").Range.Text = Range("Strasse")
'Ausdrucken der Dokumente
Test.PrintOut
Test.Close savechanges:=False
'AppWord.Quit
Set Test = Nothing
Set AppWord = Nothing
End Sub