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

fg viperbone