Private oword As Object
    Private odoc As Object
 
 
 
 
    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 = CreateObject("Word.Application")
 
 
            oword.Visible = True
        End If
        odoc = oword.Documents.Open(name)
 
    End Sub
 
    Sub Wordspeichern(ByVal altpfad As String)
        Try
            oWord = GetObject(, "Word.Application")
 
             odoc.SaveAs(altpfad)
 
        Catch ex As Exception
            MsgBox("daswar die ausnahme")
        End Try
    End Sub