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)
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