如何在Word节页脚添加居中的X/Y格式自定义页码

要实现指定节页脚居中显示“1/10、2/10……”格式的页码，需调整域的插入顺序并设置段落对齐方式，修改后的VBA代码如下：

Set rngFooter = wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
rngFooter.Delete
With rngFooter
    ' 插入当前页码域
    .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False
    ' 插入分隔符
    .InsertAfter Text:="/"
    ' 插入总页数域
    .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="NUMPAGES", PreserveFormatting:=False
    ' 设置段落居中对齐
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

关键改动说明 #

• 修正域顺序：原代码先插入总页数域再插入当前页码域，会得到“10/1”的反向格式，调整顺序后实现“当前页/总页数”的需求
• 添加居中对齐：通过.ParagraphFormat.Alignment = wdAlignParagraphCenter将页脚内容设置为居中显示
• 修正变量名：将原代码的rngHeader改为rngFooter，避免操作对象与变量名混淆

内容的提问来源于stack exchange，提问作者Subramanian