Hallo ich möchte mit einer Kombibox Werte aus Access in eine geschütze Worddokumentvorlage übergeben.
mit meinem Code kann ich es allerdings nur an ungeschützte .dot Vorlagen übergeben und überschreibe damit die Formularfelder anstatt diese auszufüllen!
Ich möchte aber das er ein neues geschütztes „.doc“ öffnet und an dieses die Werte übergibt.
Hier der CODE:
Private Sub Worddatei_AfterUpdate()
'Start Microsoft Word.
Set objWord = CreateObject(„Word.Application“)
With objWord
objWord.Visible = True
objWord.Documents.Open („D:\MusterDB“ & Forms!MusterDB!Worddatei.Column(0))
.ActiveDocument.Bookmarks(„Anrede“).Select
.Selection.Text = Me!Anrede
.ActiveDocument.Bookmarks(„Vorname“).Select
.Selection.Text = Me!Vorname
.ActiveDocument.Bookmarks(„Name“).Select
.Selection.Text = Me!Name
.ActiveDocument.Bookmarks(„Name2“).Select
.Selection.Text = Me!Name
.ActiveDocument.Bookmarks(„KDN“).Select
.Selection.Text = Me!KDN
.ActiveDocument.Bookmarks(„KDNummer“).Select
.Selection.Text = Nz(Me!KDNummer)
End With
Set objWord = Nothing
End Sub
Kann jemand den Code vielleicht anapassen?
MFG