Visual Basic para Aplicaciones - Macros con VBA buscar reemplazar

Hi!, he creado la siguiente macro para buscar y reemplazar unos caracteres que se encuentran dentro de una tabla insertada al pie de página:
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNextPage, Name:="1"

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = "ZZZ"
.Replacement.text = "00/000/000"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll

End Sub

El problema es que funciona bien sólo en el texto activo y si me posiciono al pie de página éste vuelve a buscar en el contenido principal. Tenéis alguna idea de cómo puedo hacer o qué función he de aplicar?? Gracias