Imports System.IO
 
Public Class clsWord
 
    Public Shared m_wdApp As New _
    Microsoft.Office.Interop.Word.Application
 
    Public Shared m_wdDatei As New _
    Microsoft.Office.Interop.Word.Document
 
    ' Variable für den Dateizugriff
    Sub Dateizugriff(ByVal VorlagenName As String)
        Try
            m_wdApp = New Microsoft.Office.Interop.Word.Application()
            m_wdApp.Visible = True
            If VorlagenName.EndsWith(".doc") = False Then
                VorlagenName &= ".doc"
            End If
            m_wdDatei = m_wdApp.Documents.Add(Application.StartupPath & _
              "\Brief.doc")
        Catch ex As IOException
            MessageBox.Show(ex.Message.ToString, _
            "Error!", MessageBoxButtons.OK)
            Exit Sub
        End Try
    End Sub
End Class

' Variable für Textmarken
    Public Sub TextmarkeFüllen(ByVal Marke As String, _
    ByVal Text As String)
 
        Try
            If clsWord.m_wdDatei.Bookmarks.Exists(Marke) = True Then
                clsWord.m_wdDatei.Bookmarks().Item(Marke).Range.Text = Text
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
            "Error!", MessageBoxButtons.OK)
        End Try
    End Sub

' Variable Worddokument öffnen
    Private Sub OpenWord()
        ' versuche Datei zu öffnen
        Try
            ' Klasse Word
            With WD
                ' Pfad zuweisen
                .Dateizugriff(Application.StartupPath & "\Brief.doc")
 
                ' Textmarken Text zuweisen
                TextmarkeFüllen("Datum", (CStr(Date.Now.Date)))
                TextmarkeFüllen("Name", Me.TextBox1.Text)
            End With
 
            ' Fehler anzeigen 
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
            "Error!", MessageBoxButtons.OK)
        End Try
    End Sub

VB@rchiv its the Best