VBA 如何判断 Word 文档是否使用了奇偶页眉

tjsht

问题1：VBA 如何判断 Word 文档是否使用了奇偶页眉？

问题2：一个 Word 文档带有首页页眉，偶数页眉，奇数页眉，需要检查页眉中是否有数字。
通过录制宏发现要在页眉中超找内容需要先激活Pane， ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader。
网上找到了WdSeekView 枚举，但发现没有奇数页页眉页脚。如果要在奇数页眉中查找数据代码怎么写呢，求指点？
或者，会不会有一种写法可以直接检索页眉页脚，不用区分首页，奇偶数页眉呢？

                //wdSeekCurrentPageFooter 10 当前页页脚。
                //wdSeekCurrentPageHeader 9 当前页页眉。
                //wdSeekEndnotes 8 尾注。
                //wdSeekEvenPagesFooter 6 偶数页页脚。
                //wdSeekEvenPagesHeader 3 偶数页页眉。
                //wdSeekFirstPageFooter 5 首页页脚。
                //wdSeekFirstPageHeader 2 首页页眉。
                //wdSeekFootnotes 7 脚注。
                //wdSeekMainDocument 0 主文档。
                //wdSeekPrimaryFooter 4 主页脚。
                //wdSeekPrimaryHeader 1 主页眉

tjsht

该方法比较笨，寻求更高效的方法。
对于一个带页眉页脚的 word 文档首先要判断是否使用了首页页眉，奇数页页眉 ，使用PageSetup判断“首页不同”，“奇偶页不同”是否被选中
PageSetup.OddAndEvenPagesHeaderFooter
PageSetup.DifferentFirstPageHeaderFooter
读取 word 文档总页数，分别判断当 word 文档只有1页，只有2页，页数大于2三种情况结合“首页不同”，“奇偶页不同”是否被勾选，判断出 word 文档页眉情况。
根据上面判断结果如果文档存在奇数页眉，先定位到奇数页——第一页（首页不同没勾选，奇偶页不同勾选）或第三页（首页不同勾选，奇偶页不同勾选），然后使用 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 激活奇数页眉执行搜索。