Rtf masivo

[luque]

hols

tengo una macro que convierte a rtf masivo desde una carpeta. ¿quien sabe como poder modificarlo para que tome todos los documentos que estan dentro de un directorio incluyendo los subdirectorios y ualquier carpeta que haya dentro?

Sub guachito()

'

' guachito Macro

'

'

strRuta = "C:\Documents and Settings\is documentos\COMPILADO\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strRuta)

Set objFiles = objFolder.Files

Set WordApp = CreateObject("Word.Application")

For Each objFile In objFiles

If (objFile.Type = "Documento de Microsoft Office Word 97-2003") Then

MsgBox ("Convirtiendo el archivo " + objFile.Name)

WordApp.Documents.Open (strRuta + "\" + objFile.Name)

WordApp.ActiveDocument.SaveAs strRuta + "\" + objFile.Name + ".rtf", wdFormatRTF

WordApp.ActiveDocument.Close

End If

Next

WordApp.Quit False

Set WordApp = Nothing

End Sub