VBA查找页脚内容返回页码

地铁纠魂

想实现在大量文档中自动查找给定字符，我基本已经完成了代码编制，但发现有个小漏洞，就是查找范围不包含页眉页脚，我的查找及返回页码的代码如下，还请大家帮忙诊断下：
with doc.content.find
    .text="给定字符"
    do while .execute
         pagenumber=pagenumber & .parent.information(wdactiveendadjustedpagenubmer) &" "
    loop
end with

就是通过上述代码，在正文里面查找时候功能完美，就是不会去页眉页脚里面查找，还请各位大侠帮忙指点一下，怎么修改或增加什么代码来实现页眉页脚里面的查找几页码返回呀

地铁纠魂

顶起来大家来帮帮忙看看