VB6. Из .doc в .txt

[udaffo4ka]

Добрый вечер! подскажите: нужно файл с расширением .doc сделать формата .txt (для дальнейшего использования).
Вот есть макрос на VB для Word, но как я поняла он не подойдёт...

Sub Converter()
Dim sName As String
ChangeFileOpenDirectory "C:\doc\"
sName = Dir("c:\doc\*.*")
Do While sName <> ""
Documents.Open FileName:=sName, ConfirmConversions:=False, Format:=wdOpenFormatAuto
sName = Left(sName, Len(sName) - 3)
ActiveDocument.SaveAs FileName:="c:\doc\txt\" + sName + "txt", FileFormat:=wdFormatDOSText
ActiveWindow.Close
sName = Dir
Loop
End Sub

есть какие-то примеры?!