Public Class test
 
    Dim wordProg As Object, wordDocx As Object
    Dim strPath As String, strName As String, strName0 As String
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        strName = "C:\test.docx"
        strName0 = "C:\test0.docx"
        strPath = "C:\Eigene Dateien\Testverzeichnis\"
 
        'neues Word Dokument erstellen und ...
        wordDocx = CreateObject("Word.Document")
 
        '... unter vorgegebenem Namen abspeichern
        wordDocx.SaveAs(strPath & strName)
 
        'mit dem selben "Word.Document"-Objekt ein zweites Dokument bauen
        wordDocx.SaveAs(strPath & strName0)
 
        'die Dokumente schließen, um sie anschließend ohne Probleme mit Word 
        ' öffnen zu können
        wordDocx.Close()
        wordProg = CreateObject("Word.Application")
        wordProg.visible = True
 
'das neue Dokument mit Word zur Eingabe öffnen
        wordProg.Documents.Open(strPath & strName)
 
        'noch ein Dokument öffnen
        wordProg.Documents.Open(strPath & strName0)
 
        'so kann man ein bestimmtes Dokument aus einer Anzahl geöffneter 
        ' Dokumente auswählen
        wordProg.Documents.Item(strName).Select()
 
        'In das aktive Dokument Text eingeben
        wordProg.Selection.TypeText(Text:="Hallo")
 
        'das Dokument speichern (es wird das aktive Dokument gespeichert)
        wordProg.Documents.Save()
 
        'so wird ein bestimmtes geöffnetes Dokument gespeichert:
        wordProg.Documents.Item(strName).Save()
        ggf. das Dokument wieder schließen
        wordProg.Documents.Item(strName)Close()
               wordProg.Quit() 'ggf. Word wieder schließen
 
                wordProg = Nothing
              wordDocx = Nothing
 
 
 
    End Sub
 
End Class