Hace unos días me preguntaron sobre cómo convertir los documentos word de un directorio en archivos de texto (aunque se pierdan los formatos). Este es un pequeño ejemplo (debes tener marcada la referencia a Microsoft Word) :

Dim WordApp As Word.Application
Dim aux As String, Fichero As String

Screen.MousePointer = vbHourglass
'inicializo el objeto word
Set WordApp = New Word.Application

'obtengo el nombre de los ficheros .doc del directorio
Fichero = Dir(App.Path & "\*.doc")
While Fichero <> ""
    'abro el fichero con word
    WordApp.Documents.Open App.Path & "\" & Fichero
    'lo grabo en formato texto
    aux = Left(Fichero, InStr(Fichero, "."))
    WordApp.ActiveDocument.SaveAs App.Path & "\" & aux & "txt", wdFormatText
    'lo cierro
    WordApp.ActiveDocument.Close False
    'busco el siguiente
    Fichero = Dir()
Wend
'cierro word
WordApp.Quit
'libero la memoria
Set WordApp = Nothing
Screen.MousePointer = vbDefault