Hi Leute,
ich möchte eine Word Datei mit Daten füllen und habe dafür einen funktionierenden Code von meiner alten Acc03 DB zu meiner neuen Acc07 DB übernommen und angepasst.
Dim wdApp As Object, wddoc As Object
Set wdApp = CreateObject(„Word.Application“)
wdApp.Visible = True
’ ARBEITSVERTRAG fertigstellen
Set wddoc = wdApp.Documents.Add(„Pfad zur original Datei“)
With wddoc
'Hier werden die Daten aus dem Hauptform in Textmarken überschrieben
.Bookmarks(„Anrede“).Range = Me.Parent.Anrede & „“
.Bookmarks(„LALALAL“) 'der ganze Rest von den Daten.
Und hier wird der Code einfach übergangen:
If Me.ArbVer = „befristet“ Then
wddoc.FormFields(„Kontrollkästchen5“).CheckBox.Value = True
.Bookmarks(„ArbVerBeginn“).Range = Me.ArbVerBeginn & „“
.Bookmarks(„ArbVerEnde“).Range = Me.ArbVerEnde & „“
ElseIf Me.ArbVer = „unbefristet“ Then
wddoc.FormFields(„Kontrollkästchen4“).CheckBox.Value = True
.Bookmarks(„ArbVerBeginn2“).Range = Me.ArbVerBeginn & „“
End If
Access füllt sämtliche Daten in die Textmarken, aber ignoriert die Frage nach dem Arbeitsverhältnis und trägt Anfangs- und Enddatum des Arbeitsvertrages (das so ziemlich wichtigste 
) nicht ein.
MfG
Philipp K.