Hallo,
Oder ist es (VBA-technisch) einfacher, die Rechnung statt in Word (so ist sie jetzt vorhanden und wird halt händisch bestückt) in Excel zu basteln?
Du hast geringere Komplexität, weil Du nur eine Anwendung automatisierst.
Work in Progress
ohne Fehlerbehandlung :-)
[code lang=vba]
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(Pfad & "Vorlage.doc")
Schlechte Idee.
a) Nutze eine Dokumentvorlage.
b) Verwende eine sinnvolle Verzeichnisstruktur
c) Benenne die Dokumentvorlage sinnvoll.
Set objSelection = objWord.Selection
???
Lerne mit Range-Objekten umzugehen.
SaveAs = Pfad & Rechnnr & "_" & Name
Es ist ganz bestimmt keine besonders gute Idee, die Rechnungen im gleichen Verzeichnis wie die "Anwendung" abzulegen, siehe b).
Du musst *zwingend* den Dateinamen kontextgerecht behandeln. In Dateinamen sind bestimmte Zeichen nicht zugelassen. Sorge dafür, dass diese nicht verwendet werden.
Freundliche Grüße
Vinzenz