Hallo,
Ich versuche gerade, aus Access ein Word-Dokument nach einer fonds_Brief.dot zu erzeugen und vor allem die darin gesetzten Textmarken zu ersetzen. Die Bookmarks werden gefunden und markiert, jedoch nicht durch meinen Text ersetzt. Woran liegt das?
Mein Code lautet so:
Private Sub cmdOK_Click()
Dim objWord As Word.Application
Dim strDot As String
Dim strDatei As String
Dim objDatei As Word.Document
strDot = „S:\fonds\Arbeitsdaten\Test\fonds_Brief.dot“
Set objWord = GetObject(, „Word.Application“)
'On Error GoTo Err_cmdOK_Click
On Error GoTo 0
strDatei = CurrentProject.Path & „\Docs“ & Forms!frm_Antraege!strApplicantName & „_“ & Forms!frm_Antraege!strApplicantVorname & „.doc“
If objWord Is Nothing Then
Set objWord = CreateObject(„Word.Application“)
With objWord
.Visible = True
.Documents.Add Template:=strDot
End With
With objWord.ActiveDocument
.Bookmarks(„Anrede“).Select
.Selection.Replace = CStr(Forms!frm_Antraege!strApplicantAnrede)
.Bookmarks(“Vorname”).Select
.Selection.Text = Forms!frm_Antraege.Form!strApplicantVorname
'usw…
.SaveAs FileName:=strDatei
End With
'objWord.Quit
'Set objWord = Nothing
End If