how to run word macro on multiple files

FileSearch is not available in Word 2007 vba, however the following will work:

Sub BatchProcess()
Dim strFileName As String
Dim strPath As String
Dim oDoc As Document
Dim fDialog As FileDialog
Dim oStory As Range
Dim oRng As Range
Const strFind As String = "Andy"
Const strRepl As String = "Matt"
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = "Select folder and click OK"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then
            MsgBox "Cancelled By User", , _
                   "List Folder Contents"
            Exit Sub
        End If
        strPath = fDialog.SelectedItems.Item(1) & "\"
    End With
    strFileName = Dir$(strPath & "*.doc")
    While Len(strFileName) <> 0
        WordBasic.DisableAutoMacros 1
        Set oDoc = Documents.Open(strPath & strFileName)
        For Each oStory In ActiveDocument.StoryRanges
            Set oRng = oStory
            With oRng.Find
                Do While .Execute(FindText:=strFind)
                    oRng.Text = strRepl
                    oRng.Collapse wdCollapseEnd
                Loop
            End With
            If oStory.StoryType <> wdMainTextStory Then
                While Not (oStory.NextStoryRange Is Nothing)
                    Set oStory = oStory.NextStoryRange
                    Set oRng = oStory
                    With oRng.Find
                        Do While .Execute(FindText:=strFind)
                            oRng.Text = strRepl
                            oRng.Collapse wdCollapseEnd
                        Loop
                    End With
                Wend
            End If
        Next oStory
        oDoc.SaveAs Filename:=strPath & strFileName
        oDoc.Close SaveChanges:=wdDoNotSaveChanges
        strFileName = Dir$()
        WordBasic.DisableAutoMacros 0
    Wend
    Set oDoc = Nothing
    Set oStory = Nothing
    Set oRng = Nothing
End Sub