Document.StoryRanges (Word)
Returns a StoryRanges collection that represents all the stories in the specified document.
For information about returning a single member of a collection, see Returning an object from a collection.
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType = wdEvenPagesFooterStory Then
MsgBox "Document includes an even page footer"
End If
Next aStory