Imports System.Runtime.InteropServices
Imports Word = Microsoft.Office.Interop.Word
Imports System.IO
 
 
Public Class Form1
 
    Dim strFileName As String
 
    Private Function dok(ByVal textmarke As String, ByVal textm_value As String)
 
        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        Try
            'word.Visible = (True) 'Word sehen zum Test?
            doc = word.Documents.Open( _
              "\\192.168.1.23\Abschaltung\Dokus\Testdokument.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:\Dokus\test.doc")
            doc.Close()
 
            MessageBox.Show("Datei erstellt")
 
        Catch ex As IOException
            MessageBox.Show("Datei nicht vorhanden.")
 
        Finally
            word.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("Textbox1", TextBox1.Text)      ' dok( Textmarke, Inhalt)
        dok("Textbox2", TextBox2.Text)
    End Sub
 
 
 
 
End Class