Class clsWord
 
    Dim oword As Word.Application
    Dim odoc As Word.Document
 
    Sub Dateioeffnen(ByVal name As String)
 
        Try
            oword = GetObject(, "Word.Application")
        Catch ex As Exception
 
        End Try
 
        If oword Is Nothing Then
            MsgBox("oword ist nothing; neue Instanz erstellen")
            oword = New Word.Application
            oword.Visible = True
        End If
        odoc = oword.Documents.Open(name)
 
    End Sub
 
    Sub SchreibeText(ByVal Text As String)
        If Not odoc Is Nothing Then
            Dim s As Word.Range
            s = odoc.Range
            s.Text = s.Text & Text
        End If
    End Sub
 
End Class
 
 
' und der Aufruf im Button Klick Ereignis:
    Private Sub WordInstanz_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles WordInstanz.Click
 
        Dim WD As clsWord
 
        WD = New clsWord()
 
        With WD
            .Dateioeffnen("C:\Users\viperbone\Desktop\New Microsoft Office" & _
              "Word-Dokument.docx")
            .SchreibeText("ZwischenText")
        End With
 
    End Sub

fg viperbone