Word Vorlage aus Excel VBA füllen
15.03.2017 14:54:22
Flo
ich hab mal wieder eine Problem. Ich möchte aus einer Excelliste einen Brief erstellen.
Ich hab einen Ansatz gefunden und auch schon angepasst, nur ist die Laufzeit vom Makro etwas lang.
Momentan wird das Word Dokument im Hintergrund geöffnet und sofort ausgedruckt,
allerdings kommt beim schließen ein Meldung "bitte abwarten bis Ausdruck abgeschlossen"
Gibt es eine Möglichkeit das zu unterdrücken bzw. dies zu beschleunigen.
Es kann zudem vorkommen, dass mehrere Personen gleichzeitig dieses Schreiben drucken wollen, dadurch kommt eine Meldung "Dokument schreibgeschützt öffnen"
das sollte auch unterdrückt werden.
Super ware auch wenn man mehrere Zeilen markiert, dass dann für alle markierten Zeilen die Briefe gedruckt warden :)
Könnt ihr mir hier einen Tip geben wie ich das alles lösen kann?
Vielen Dank :)
Gruß Flo
Sub Test2()
Dim wrdApp
Dim wrdDoc
Dim Pfad As String
Pfad = "D:\test.docx"
On Error GoTo ErrorExit
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Pfad)
wrdApp.Visible = False
wrdDoc.FormFields("Text1").Result = Cells(ActiveCell.Row, 1) 'Kundenname
wrdDoc.FormFields("Text2").Result = Cells(ActiveCell.Row, 2) 'Strasse
wrdDoc.PrintOut
wrdDoc.Saved = False
wrdDoc.Close
ErrorExit:
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub