求在word指定分节插入页码的vba代码

tender888

word文档有：封面、目录、正文、参考文献4个分节
我想在第2、3分节添加从1开始编号的底部居中页码
请教怎么写代码？

yuyubiao

你用录制宏试一下就知道了

yuyubiao

以下是用VBA实现在第2、3节添加页码的代码：

Sub AddPageNumber()
    ' 定义变量
    Dim sec As Section
    Dim pgNum As PageNumber
   
    ' 遍历第2、3节
    For Each sec In ActiveDocument.Sections
        If sec.Index >= 2 And sec.Index <= 3 Then
            ' 在当前节的第一页底部插入空白页
            sec.Range.InsertBreak Type:=wdSectionBreakNextPage
            ' 在新的一页底部插入页码
            Set pgNum = sec.Footers(wdHeaderFooterPrimary).PageNumbers
            pgNum.NumberStyle = wdPageNumberStyleArabic
            pgNum.Alignment = wdAlignPageNumberCenter
            pgNum.StartingNumber = 1
            pgNum.ShowFirstPageNumber = True
        End If
    Next sec
End Sub
将上述代码复制到VBA编辑器中并运行，即可在第2、3节的第一页底部添加从1开始编号的页码。

tender888

yuyubiao 发表于 2023-6-16 00:45
以下是用VBA实现在第2、3节添加页码的代码：

Sub AddPageNumber()

谢谢！还是不行，运行之后是把整个文档每页都编码

yuyubiao

tender888 发表于 2023-6-16 22:03
谢谢！还是不行，运行之后是把整个文档每页都编码

这个是chatgpt生成的哈，你要自己调试

tender888

yuyubiao 发表于 2023-6-17 00:04
这个是chatgpt生成的哈，你要自己调试

厉害，用上高科技了