Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles _
      Button1.Click
 
 
Dim WD As New clsWord()
 
        With WD
            .Dateioeffnen("D:\Users\......docx")
            .SchreibeText("text")
        End With
 
End sub
 
 
 
 
 
 
 
 
Public Class clsWord
 
    Dim oword As Word.Application
    Dim odoc As Word.Document
 
 
Sub Dateioeffnen(ByVal name As String)
 
            oword = GetObject(, "Word.Application")
 
        odoc = oword.Documents.Open(name)
End Sub
 
Sub SchreibeText(ByVal Text As String)
        odoc.Selection.TypeText(Text)
 
    End Sub
 
endclass<pre><code>