VBA 处理word无法正常添加页码

Question

版本是word2003

VBA文档主要是参考：https://msdn.microsoft.com/en...
headersfooters下调用pagenumbers来实现添加页码。

但是有个问题：
比如Expression.footers必须调用枚举常量如wdHeaderFooterPrimary才能调用pagenumbers这个attribute。
如果不调用枚举常则不存在属性pagenumbers，更加无法添加页码

这样就出现个问题，假如我要从第一页就开始生成页码怎么办？footers或hearders的对象集合又不存在pagenumbers这个属性，而假如我要以Expression.footers（1）.pagenumbers(1)单独给页码赋值，却又无法调用函数。

求解~~~
还有startingnumber这个 Property有bug，无法正常工作，但又不报错。。。

Answer 1

解决第一页开始编码：docApp.ActiveDocument.Sections(X).Footers(constants.wdHeaderFooterPrimary).PageNumbers.Add(constants.wdAlignPageNumberCenter,True)

ADD第二个参数true，默认第一页编码，不会报错，与footer和hearders选择集合无关。

解决起始页码，手动选中起始页码后，再进行代码调整，可以成功，虽然鸡肋，但算一解决办法