Private Sub Command1_Click()
Dim Obj As Object
Set Obj = CreateObject("Word.basic")
Obj.FileOpen "c:\demo.doc"
Obj.FileSaveAs "c:\demo.rtf", 6
Set Obj = Nothing

MsgBox "Dokumentet är konverterat till RTF format"

End Sub