Вот тебе макрос, пусть подключат.

Const sPath As String = "c:\conv\"
Dim sFileName As String
sFileName = Dir$(sPath + "*.doc")
Do Until Len(sFileName) = 0
Dim aD As Word.Document
Set aD = Documents.Open(FileName:=sPath + sFileName, ReadOnly:=True)
L = InStrRev(sFileName, ".")
aD.SaveAs Left$(sFileName, L) + "rtf", wdFormatRTF
sFileName = Dir$
Loop