B.C. in the house!
I live about 30 minutes south of the border in Washington. I miss the whole area.....sorry about day dreamin'
Fumei - I appreciate your response back. I understand what you are saying. I created the following to do what I needed to do. It worked on a test folder I created with about 150 .wpd's in it. Took about 15 minutes to run.
Ran into a couple issues. I keep getting an "Do you want to update links blah, blah, blah" and I was trying to find out programmically to say "Yes" to all
The last issue is to find and replace a Phrase in the Header, Footer, and body of each of these.
Sub BatchChange()
Dim oDoc As Word.Document
Dim sPath As String
Dim sFileSpec As String
Dim sFile As String
Dim sFileList() As String
Dim i As Integer
' Get Folder
sPath = InputBox("Enter Word Doc Folder to Process", "Batch", "")
' Clean up
sPath = Trim(sPath)
If Right((sPath), 1) <> "\" Then sPath = sPath & "\"
' Add Wordperfect extention
sFileSpec = sPath & "*.wpd"
' Get All filenames in the Folder
sFile = Dir$(sFileSpec)
i = -1
Do Until sFile = ""
i = i + 1
ReDim Preserve sFileList(i) As String
sFileList(i) = sFile
sFile = Dir$
Loop
' Process each file
For i = 0 To UBound(sFileList)
Set oDoc = Word.Documents.Open(sPath & sFileList(i))
a = Len(sFileList(i)) - 3
b = Left(sFileList(i), a)
oDoc.SaveAs (sPath & b) & "doc"
Call oDoc.Close(True)
Kill (sPath & sFileList(i))
Next i
' Release dynamic array
Erase sFileList
End Sub