So, ich habe es jetzt mal probiert und mit diesen Code zusammen geklaut
Private Sub cmdtest_Click()
Dim wrdApp
Dim wrdDoc
Dim Pfad As String
Pfad = ThisWorkbook.Path & "\Vorlage2.docx"
'On Error GoTo ErrorExit
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Pfad)
wrdApp.Visible = False
wrdDoc.FormFields("Text1").Value = "test erfolgreich"
Pfad = ThisWorkbook.Path & "\Testpfad\" & "Fertig" & ".pdf"
wrdDoc.Save
wrdDoc.Close
'ErrorExit:
' wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
end sub
Leider funktioniert es aber nicht. die Zeile wrdDoc.FormFields("Text1").Value = "test erfolgreich" wird vom debugger markiert, Fehler 5941 tritt auf. Ich vermute mal, dass ich das Feld im Word nicht richtig anspreche. Leider habe ich von Word wirklich gar keine Ahnung. Ich habe die Entwicklertools aktiviert und ein Textfeld sowie ein Rich-Textfeld hingezogen. In beide habe ich "Text1" geschrieben.
Kann mir jemand sein, wie es richtig geht? Irgendwie muss man doch die FormFields bennenn können, oder?
|