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("c:\\schreiben.dot")
            doc.Activate()

'Überprüfen ob Wordinstanz gestartet ist
        Dim Proc() As Process
        Dim FlagWdApp As Boolean    'Flag - True: Word wurde bereits estartet
 
        'Variable initieren
        Proc = Process.GetProcesses
 
        'Alle Prozesse durchlaufen
        For Each Process In Proc
            If (Process.ProcessName.IndexOf("WINWORD") > -1) Then
                FlagWdApp = True
            End If
        Next Process
 
        'Objekt in Abhängigkeit, ob Wordinstanz gestartet ist oder nicht, der 
        ' Variablen "WdApp" zuweisen
        If FlagWdApp = True Then
            Return GetObject(, "Word.Application")       
        Else
            Return CreateObject(, "Word.Application")
        End If

Dim WordAppl As Word.Application ' Word-Application
    Dim WdDoc As Word.Document       ' Word-Dokument
    Dim WordApplLiefNicht As Boolean ' Falls Word nicht läuft
 
    ' Versuchen eine laufende Instanz von Wort zu verwenden
    On Error Resume Next
    Set WordAppl = GetObject(, "Word.Application")
 
    ' Wenn Word nicht ausgeführt wird, Word starten:
    On Error Goto errorMsgWord
    If WordAppl Is Nothing Then
        WordApplLiefNicht = True
        Set WordAppl = CreateObject("Word.Application")
    End If
 
    ' Dokument öffnen
    On Error Goto errorMsgVorlage
    Set WdDoc = WordAppl.Documents.Add( _
                    Template:=App.Path & "\" & WordDocVorlage, _
                    NewTemplate:=False _
                )