Formfields ausfüllen und als PDF speichern
22.12.2017 07:31:23
Chris
bei unten stehendem Makro erhalte ich den Fehler: Objekt unterstützt Eigenschaft oder Methode nicht.
Das Makro soll Formfelder in einer Word-Datei mit Daten aus Excel befüllen und die Word Datei anschließend als PDF-abspeichern.
Hat jmd. eine Idee wo der Fehler liegt?
Danke
Chris
Sub pr()
Dim objWD As Object, objWDDoc As Object
Dim strName As String
strName = Environ("UserProfile") & "\Desktop\VorlageOP.docx"
Set objWD = CreateObject("Word.Application")
Set objWDDoc = objWD.documents.Add
With objWDDoc
objWDDoc.ActiveDocument.Formfields.Item("Text1").Result = Sheets("Auftragsliste").Range("H2"). _
_
_
Value
objWDDoc.ActiveDocument.Formfields.Item("Text2").Result = Sheets("Auftragsliste").Range("B2"). _
_
_
Value 'POS. 1
objWDDoc.ActiveDocument.Formfields.Item("Text3").Result = Sheets("Auftragsliste").Range("B3"). _
_
_
Value 'POS. 2
objWDDoc.ActiveDocument.Formfields.Item("Text4").Result = Sheets("Auftragsliste").Range("B4"). _
_
_
Value 'POS. 3
objWDDoc.ActiveDocument.Formfields.Item("Text5").Result = Sheets("Auftragsliste").Range("B5"). _
_
_
Value 'POS. 4
objWDDoc.ActiveDocument.Formfields.Item("Text6").Result = Sheets("Auftragsliste").Range("B6"). _
_
_
Value 'POS. 5
objWDDoc.ActiveDocument.Formfields.Item("Text7").Result = Sheets("Auftragsliste").Range("B7"). _
_
_
Value 'POS. 6
.ExportAsFixedFormat OutputFileName:=strName, _
ExportFormat:=17, _
OpenAfterExport:=False
.Close False
End With
objWDDoc.Quit
Set objWDDoc = Nothing
Set objWD = Nothing
End With
Anzeige