Sub btneMailW_Click ()
    Dim wwobj As Object
    Dim inhalt As String
 
    Set wwobj = CreateObject("Word.Application")
 
If wwobj Is Nothing Then
    MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"
    Exit Sub
End If
 
    wwobj.Documents.Add ("C:\WVorlage\VEmail.Doc")
 
    If Forms!Aussteller.Name1 = "" Or IsNull(Forms!Aussteller.Name1) Then
    Else :
    wwobj.Selection.Goto wdGoToBookmark = "NameA"
    inhalt = Forms!Aussteller.Name1
    wwobj.Selection.Text = inhalt
    End If
 
    wwobj.Visible = True
    wwobj.WindowState = wdWindowStateMaximize
 
Set wwobj = Nothing
End Sub