想用VBA批量给WORD多个节添加连续页码总是失败

angewoshi安

想用VBA批量给WORD好多个节的那种文件添加连续页码总是失败，第二页就没有页码啊？
Sub 多节插入页码()
    With ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageFooter    '进入页脚编辑状态
        With Selection
            .Expand wdStory    '选取可能存在的所有页脚内容
            .ParagraphFormat.Alignment = wdAlignParagraphRight     '右对齐
            .TypeText ""
            .Fields.Add .Range, wdFieldPage    '插入Page域
            .TypeText ""
            .Font.Name = "仿宋_GB2312" '单元格字体仿宋
            .Font.Size = 14 '单元格字体三号
        End With
        .SeekView = wdSeekMainDocument    '退出页脚编辑状态，返回主文档
    End With
End Sub

VBA多节添加连续的页码.rar (11.92 KB, 下载次数: 11)

2019-9-6 14:29 上传

点击文件名下载附件

413191246se

1. Sub aaab多节插入连续页码()
   
2.     Dim f As HeaderFooter, s As Section
   
3.     With ActiveDocument
   
4.         For Each s In .Sections
   
5.             For Each f In s.Footers
   
6.                 With s.Footers(wdHeaderFooterPrimary).PageNumbers
   
7.                     .Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
   
8.                     .RestartNumberingAtSection = False
   
9.                 End With
   
10.             Next f
    
11.         Next s
    
12.     End With
    
13. End Sub

复制代码

angewoshi安

413191246se 发表于 2019-9-6 21:23

这个加了码不是连续的啊

413191246se

请将代码放在 Normal.dot 中，再试一次（我在自己电脑上看是连续页码）。