Office: übergabe an Word mit Textmarken

Moin,
wie wäre es mit

Code:

With wdDoc
   .Bookmarks("NameVor").Range = Nz(Me!NameVor, "")
   .Bookmarks("Nachname").Range = Nz(Me!Nachname, "")
   .Bookmarks("PK").Range = Nz(Me!PK, "")
   .Bookmarks("Dienstgrad_ID").Range = Nz(Me!Dienstgrad_ID.Column(1), "") t werden
   .Bookmarks("DatumMaske").Range = Nz(Me!DatumMaske, "")
   .Bookmarks("DatumHelm").Range = Nz(Me!DatumHelm, "")
   .Bookmarks("Bemerkung").Range = Nz(Me!Bemerkung, "")
End With

oder, wenn Nz zu einem Fehler führt

Code:

With wdDoc
   If IsNull(Me!NameVor) Then .Bookmarks("NameVor").Range = "" Else .Bookmarks("NameVor").Range = Me!NameVor
   If IsNull(Me!Nachname) Then .Bookmarks("Nachname").Range = "" Else .Bookmarks("Nachname").Range = Me!Nachname
End With

usw

 

@Doming , vielen Dank für die Antwort. Der erste Code hat funktioniert ohne Fehlermeldung. Dankeschön.