想和各位从事word vba编程的童鞋探讨一个关于批量添加文档页码的问题

注册怎么这么难

请看一下两段断码：

代码一：
dim secnum as long
secnum=activedocument.Sections.Count
For i = 1 To secnum
    ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.Add
Next i

代码二：
Dim csection As Section
For Each csection In ActiveDocument.Sections
    csection.Footers(wdHeaderFooterPrimary).PageNumbers.Add
Next csection

从代码本身看，两段代码执行的效果应该是一样的，但是在实际的编程中，代码一在执行的时候经常会出错（不是系统报错，而是执行结果不对），而代码二就不存在这个问题，想和大家探讨下问题出在哪里？

希望大家踊跃参与
     

413191246se

我就踊跃发言了，不管对不对。第一段变量 i 也得定义为 LONG，还有，第一段是给各个“节”加页码，节与节之间是不是承继关系（断开链接否）？而第二段未指明第几节，让VBA自己加。