Hallo Zusammen,
ich hoffe, jmd. hat eine Lösung für folgendes Problem:
Habe ein Formular in Word entworfen und formulargeschützt gespeichert.
In dieses Formular möchte ich in benannte Textformularfelder Informationen aus Excel hinterlegen und dann die WordDatei unter neuem Namen speichern.
Folgendes Makro funktioniert auch bis...
Sub Makro1()
Dim appWord As Object
Dim docWord As Object
Dim rngWord As Object
Dim sFile As String
sFile = Range("I8").Value
SpeicherName = Worksheets("SerienVorlagen").Range("I9")
If Dir(sFile) = "" Then
Beep
MsgBox "Word-Dokument wurde nicht gefunden!"
Exit Sub
End If
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Open(sFile)
appWord.activedocument.FormFields("Name").Result = Worksheets("SerienVorlagen").Range("J2")
appWord.activedocument.FormFields("Straße").Result = Worksheets("SerienVorlagen").Range("J3")
appWord.activedocument.FormFields("Ort").Result = Worksheets("SerienVorlagen").Range("J4")
appWord.SaveAs Filename:="SpeicherName", AddToRecentFiles:=False
... hier
Meldung: Objekt unterstützt diese Eigenschaft nicht. (Laufzeitfehler 438)
Gibt es vielleicht Alternativen?
Ganz herzlichen Dank für Antworten!
Gruß
hanos