Macro recherche remplace

Bonjour =E0 tous,

J'ai une macro que j'ai r=E9cup=E9r=E9 d'internet qui fait un recherche
remplace. Mon probl=E8me est que cette macro ne cherche et remplace pas
dans l'ent=EAte et pied de page. J'utilise cette macro pour faire des
recherche remplace dans une s=E9rie de fichiers .dot. Votre aide serait
grandement appr=E9ci=E9. Voici la macro:

Option Explicit

Public Sub BatchReplaceAll()

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

PathToUse =3D "C:\Test\"

'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:=3DwdPromptToSaveChanges

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

FirstLoop =3D True

'Set the directory and type of file to batch process

With Application.FileSearch
.NewSearch
.LookIn =3D PathToUse
.SearchSubFolders =3D True
.FileName =3D "*.dot"
.MatchTextExactly =3D True
.FileType =3D msoFileTypeAllFiles

If .Execute() Then

For i =3D 1 To .FoundFiles.Count

'Open document
Set myDoc =3D Documents.Open(.FoundFiles(i))

If FirstLoop Then

'display dialog on first loop only

Dialogs(wdDialogEditReplace).Show

FirstLoop =3D False

Response =3D MsgBox("Do you want to process " & _
"the rest of the files in this folder", vbYesNo)
If Response =3D 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 =3D 1
.Execute
End With

End If

'Close the modified document after saving changes
myDoc.Close SaveChanges:=3DwdSaveChanges

Next i

End If

End With

End Sub