Dim oword As Object
    Dim odoc As Object
 
 
Sub Dateioeffnen(ByVal name As String)
 
        Try
            oword = GetObject(, "Word.Application")
           Catch ex As Exception
        End Try
        odoc = oword.Documents.Open(name)
 
 End Sub
 
 
 Sub Wordspeichern(ByVal Verzeichnis As String)
        Try
            oword = GetObject(, "Word.Application")
 
            odoc.SaveAs(Verzeichnis)
            MsgBox("JETZT WIRD GESICHERT")
        Catch ex As Exception
            MsgBox("daswar die ausnahme")
        End Try
    End Sub