HtmlToRTF

Sub ConvertWordDoc()
Static WordObj As Word.Application
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open ("c:\my documents\test.htm")
'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