Convert Files to Word Documents with a Script

If you've ever needed to convert one or many garbled RTF files into a readable Word document you will appreciate this little script. Instead of having to go to each file, open it in Word, and save it into the .DOC format manually you can use this script to enumerate an entire folder of files and convert them into Word documents.

The script uses Word's API and a file system object to open each file, save it into the Word 2003 .DOC format and close it.

For my purposes, I only wanted to convert .RTF files because I was running it against a folder with .PDF and other file types. You can easily alter the file type or remove this check by deleting the If statement on line 36 - "If LCase(Right(objFile,3)) = "rtf" Then". Just make sure you leave what's inside the If block alone.

Download Link

'Author: Christopher Maddalena
'Date: October 23, 2007
'Purpose: Convert garbled RTF files into Word .DOCs.
'How: This script enumerates through a folder specified as strFolder
' for every file present, opens the files and save them as .DOCs
' by using Word's API.

Option Explicit
Call Main()

On Error Resume Next

Sub Main
Dim objWord, objFileSystem, objSrcFolder, objFile, objDoc, objSelection
Dim strFolder, strFile, strDOC, colFiles, File

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

strFolder = "C:\Test" 'Put your folder's path here!

Set objSrcFolder = objFilesystem.GetFolder(strFolder)
Set colFiles = objSrcFolder.Files

For Each File In colFiles
Set objFile = objFileSystem.GetFile(strFolder & "\" & File.Name & "\")

strFile = objFile.Path

strDOC = objFileSystem.BuildPath(objFile.ParentFolder,objFileSystem.GetBaseName(objFile) & ".doc")

If LCase(Right(objFile,3)) = "rtf" Then
Set objDoc = objWord.Documents.Open(strFile)
Set objDoc = objWord.ActiveDocument
Set objSelection = objWord.Selection

'Save actibe document as the default Word .doc and close it
objDoc.SaveAs strDOC, 0
End If
'Exit Word
End Sub

No comments: