Public Class Form1
    Dim strFileName As String
 
    Private Function dok(ByVal textmarke As String, ByVal textm_value As String)
 
        Dim appWord As Object
        Dim doc As Object
        appWord = CreateObject("Word.Application")
        appWord.Visible = True
 
        doc = appWord.Documents.Open("c:\schreiben.dot")
        doc.Activate()
 
        If doc.Range.Bookmarks.Exists(textmarke) Then
            doc.Bookmarks().Item(textmarke).Range.Text = textm_value
        Else
            MessageBox.Show("Textmarke nicht vorhanden!")
        End If
 
        'doc.SaveAs("c:\test.doc")
        'doc.Close()
        'MessageBox.Show("Datei erstellt")
 
        'Catch ex As IOException
        'MessageBox.Show("Datei nicht vorhanden.")
 
        'Finally
        'appWord.Application.Quit()
        'End Try
 
        Return (0)
 
    End Function
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Funktionsaufruf
        dok("Kundenname", "franke")      ' dok( Textmarke, Inhalt)
    End Sub
End Class