Convert Word Documents to RTF

Hello,

Could anybody please provide me a way to convert Word Documents to RTF programmatically without opening the document?

'Try this ( of course Word lib must be added)

Sub ConvertWordDoc()
Static WordObj As Word.Application
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open ("c:\my documents\test.doc")
'Disable viewing the Word session
'and its document
WordObj.Visible = False
WordObj.ActiveDocument.SaveAs "c:\my documents\test.rtf", wdFormatRTF
WordObj.Quit savechanges:=False
Set WordObj = Nothing
End Sub


Iouri Boutchkine
[email protected]

Thank you, it works.

Does anyone know how to use the word object model in embedded VB. I need a program to convert pocket word docs to text files. Thanks.