求助，如何在word中快速为多节设置连续页码？

千湄

求助，因为这个表是数据库中导出的，出来的格式就自动分节了，希望通过操作可以在页面右上角编上连续的页码，目前查到的方式都需要每一节去设置页码格式续前节，是否可以一次将整个文档的所有节进行设置，因为节数比较多。非常感谢。

duquancai

1. Sub shishi()
   
2.    Dim aSec As Section
   
3.    For Each aSec In ActiveDocument.Sections
   
4.       aSec.Headers(1).PageNumbers.RestartNumberingAtSection = False
   
5.    Next
   
6. End Sub

复制代码

duquancai

最好提供真实文档！
如涉及保密：
1、文档内容可以随便添加
2、页眉中的内容随便添加（从数据库导出的文档中的页眉本身含有页码，保留！若果页眉中无页码，意思就是需要重新添加页码）
a、如果从数据库导出的文档中的页眉本身含有页码，那就是楼上的代码
b、如果从数据库导出的文档中的页眉中无页码，那就得重新添加页码。

千湄

duquancai 发表于 2016-11-18 12:27
最好提供真实文档！
如涉及保密：
1、文档内容可以随便添加

老师，非常感谢您的回复，附件的问题是我疏忽了，不好意思。
系统中导出的文档是没有页码的，需要先添加页码，
再次感谢您的回复！

千湄

duquancai 发表于 2016-11-18 12:27
最好提供真实文档！
如涉及保密：
1、文档内容可以随便添加

老师，我刚刚试了一下您的那段代码，非常好用，基本解决了我的问题。再次感谢。
如果不是太耽误您的话，可否帮我加一点点就是设置页码，而且页码的字号为3号的代码?本来以为录个宏就能解决的，好象不对，我录的用不了，会出错，又不懂为什么会出错，55555。

千湄

我将附件重新传了一下，麻烦各位老师了，感谢！

duquancai

千湄 发表于 2016-11-18 23:09
老师，非常感谢您的回复，附件的问题是我疏忽了，不好意思。
系统中导出的文档是没有页码的，需要先添加 ...

1. Sub test()
   
2.    Dim aSection As Section, aRange As Range
   
3.    Application.ScreenUpdating = False
   
4.    Set aRange = ActiveDocument.Sections(1).Headers(1).Range
   
5.    With aRange
   
6.       .Font.Size = 16: .ParagraphFormat.Alignment = 2: .Collapse 0
   
7.       .Fields.Add aRange, 33, "PAGE  \* Arabic ", True
   
8.    End With
   
9.    For Each aSection In ActiveDocument.Sections
   
10.       aSection.Headers(1).PageNumbers.RestartNumberingAtSection = False
    
11.    Next
    
12.    Application.ScreenUpdating = True
    
13. End Sub

复制代码

千湄

duquancai 发表于 2016-11-19 07:57

非常感谢老师，这段代码可以帮助我每天减少20分钟左右的工作，业务繁忙时期还不止 这个时间，而且既规范还不会出错，再次感受到科技是第一生产力，知识就是力量，鞠躬。

duquancai

千湄 发表于 2016-11-19 14:13
非常感谢老师，这段代码可以帮助我每天减少20分钟左右的工作，业务繁忙时期还不止 这个时间，而且既规范 ...

既然这样，花花都不值得你送一支吗？

千湄

duquancai 发表于 2016-11-19 14:30
既然这样，花花都不值得你送一支吗？

汗，我能告诉你我不知道怎么送吗????