Sub btneMailW_Click ()  
Dim wwobj As Object
Dim inhalt As String
 
    Set wwobj = CreateObject("Word.Application")
    wwobj.Documents.Add ("C:\WVorlage\VEMail.Doc")
 
    wwobj.Selection.Goto what:=wdGoToBookmark, Name:="NameA"
    inhalt = Me!Mitarbeiter
    wwobj.Selection.TypeText Text:=inhalt
 
    wwobj.Visible = True
    wwobj.WindowState = wdWindowStateMaximize
 
Set wwobj = Nothing
End Sub