Name: {Textmarke "Name"}
Vorname:  {Textmarke "VName"}
Mail:  {Textmarke "Mail"}

Private Sub Command1_Click()
    Dim wdApp As Object
 
    Set wdApp = CreateObject("word.application")
 
    With wdApp
        .Visible = True
        .Documents.Add Template:="Demo.dot", NewTemplate:=False
        [color=green]' Bei der Programmdistribution:
                   ' .Documents.Add Template:=App.Path & "\Demo.dot", 
                   ' NewTemplate:=False
 
        .Selection.GoTo Name:="Name"
        .Selection.TypeText Text:=txtVName.Text
 
        .Selection.GoTo Name:="VName"
        .Selection.TypeText Text:=txtVName.Text
 
        .Selection.GoTo Name:="Mail"
        .Selection.TypeText Text:=txtMail.Text
    End With
 
    Set wdApp = Nothing
End Sub

Gruß
Marcus