Dim app As New Word.Application
        Dim doc As Word.Document
        doc = app.Documents.Open("C:\test.doc")
        doc.SaveAs("C:\test.rtf", Word.WdSaveFormat.wdFormatRTF)
        app.Quit()

Imports Microsoft.Office.Interop

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist