Attribute VB_Name = "FindReplace"
Public Sub GlobalFindandReplace()
Dim oDoc As Word.Document
Dim oFile As File
Dim oFolder As Folder
Dim fs As FileSystemObject

Set fs = New FileSystemObject
Set oFolder = fs.GetFolder("c:\ptr")    'the folder with all of the files

Application.DisplayAlerts = wdAlertsNone    'don't put up any prompts
For Each oFile In oFolder.Files 'loop through all files in the folder
    If oFile.Type = "Microsoft Word Document" Then  'only touch Word files
        Set oDoc = Application.Documents.Open(oFile.Path)   'open the file
        '***********************
        'beginning of first find
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .text = "administrator"
            .Replacement.text = "Administrator"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
            .MatchFuzzy = False
            .Execute Replace:=wdReplaceAll
        End With
        'end of first find
        '************************
        'if a second find is needed copy the above code here
        
        'end of second find
        
    End If
    'save and close the document
    oDoc.Save
    oDoc.Close
Next oFile  'move on to the next file
Application.DisplayAlerts = wdAlertsAll 'turn alerts back on
End Sub