VBA Replace including text in footnotes

[Suzanne Bronson]

The following section of a macro works great to find/replace text in the body
of a document. How can it include text in footnotes as well?

With Selection.Find
.Text = VARIABLE
.Replacement.Text = SUBJECT
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Thanks very much.