如何用vba给word文档添加页码？

您所在的位置：网站首页 › 文档自动添加页码 › 如何用vba给word文档添加页码？

如何用vba给word文档添加页码？

2024-07-16 06:38| 来源: 网络整理| 查看: 265

如何用vba给word文档添加页码？ 2019年7月3日作者：水星Excel 10,997 次浏览暂无评论

在word文档的页眉或页脚可以添加页码。

一个页眉或页脚可以添加多个页码。

在word vba 中PageNumber 对象代表一个页码。

而PageNumbers集合对象代表了一个页眉或页脚中的所有页码。

要添加页码可以使用PageNumbers集合对象的Add方法。

以下代码可以实现给word文档添加页码，并且居中，起始页码为5。

Sub QQ1722187970() Dim oSection As Section Dim oHF As HeaderFooter Debug.Print Word.ActiveDocument.Sections.Count Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oPN As PageNumber With oDoc For Each oSection In .Sections With oSection With .PageSetup '首页不同 .DifferentFirstPageHeaderFooter = False '奇偶页不同 .OddAndEvenPagesHeaderFooter = False End With Set oHF = .Footers(wdHeaderFooterPrimary) With oHF.PageNumbers .NumberStyle = wdPageNumberStyleArabicFullWidth 不续前节 ' .RestartNumberingAtSection = True '从5开始编号 .StartingNumber = 5 Set oPN = .Add With oPN .Alignment = wdAlignPageNumberCenter End With End With End With Next End With End Sub 其它相关文章推荐：如何用vba给word文档的奇偶页设置页码？如何用vba删除word文档中的所有页码？如何用vba设置word文档页眉页脚的首页不同和奇偶页不同？如何用vba设置word的页码格式？如何用vba为页眉页脚设置或取消设置链接到前一节功能？如何用vba遍历word文档的页眉页脚？分类 : VBA , WORD VBA 标签 : PageNumber , 添加页码 , 起始页码 , 页码

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何用vba给word文档添加页码？

如何用vba给word文档添加页码？

今日新闻

推荐新闻