Private Sub Befehl32_Click()
 
Dim wwobj As Object
Dim inhalt As String
 
    Set wwobj = CreateObject("Word.Application")
    wwobj.Documents.Add ("C:\test.dot")
 
    If Not IsNull(Me.Name1) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Name1"
    inhalt = Me.Name1
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Me.Name2) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Name2"
    inhalt = Me.Name2
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Me.Name3) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Name3"
    inhalt = Me.Name3
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Anrede)) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Anrede"
    inhalt = (Nz(Form!GastroKontaktpersonen!Anrede))
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Vorname)) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Vorname"
    inhalt = (Nz(Form!GastroKontaktpersonen!Vorname))
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Nachname)) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Nachname"
    inhalt = (Nz(Form!GastroKontaktpersonen!Nachname))
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
 
    If Not IsNull(Me.Strasse) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Straße"
    inhalt = Me.Strasse
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Me.PLZ) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="PLZ"
    inhalt = Me.PLZ
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
    If Not IsNull(Me.Ort) Then
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="Ort"
    inhalt = Me.Ort
    wwobj.Selection.TypeText Text:=inhalt
    End If
 
 
wwobj.Visible = True
wwobj.WindowState = wdWindowStateMaximize
Set wwobj = Nothing
Exit Sub
 
End Sub