Public Sub BatchReplaceAllTrial()

Dim FirstLoop As Boolean
Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
Dim Response As Long

PathToUse = "Macintosh HD:Trial:"

        'Error handler to handle error generated whenever
        'the FindReplace dialog is closed

On Error Resume Next

        'Close all open documents before beginning

Documents.Close SaveChanges:=wdPromptToSaveChanges

        'Boolean expression to test whether first loop
        'This is used so that the FindReplace dialog will
        'only be displayed for the first document

FirstLoop = True

        'Set the directory and type of file to batch process

myFile = Dir$(PathToUse & "*.docx")

While myFile <> " "

        'Open document
        
    Set myDoc = Documents.Open(PathToUse & myFile)

    If FirstLoop Then

        'Display dialog on first loop only

        Dialogs(wdDialogEditReplace).Show

        FirstLoop = False

        Response = MsgBox("Do you want to process " & _
        "the rest of the files in this folder", vbYesNo)
        If Response = vbNo Then Exit Sub

    Else

        'On subsequent loops (files), a ReplaceAll is
        'executed with the original settings and without
        'displaying the dialog box again

        With Dialogs(wdDialogEditReplace)
            .ReplaceAll = 1
            .Execute
        End With

    End If
    
    
        'Close the modified document after saving changes

    myDoc.Close SaveChanges:=wdSaveChanges

        'Next file in folder

    myFile = Dir$()

Wend

End Sub