如何用VBA在Word中创建包含当前页码的自定义字段？

核心思路 #

通过VBA编写自定义数字转文本函数，结合Word内置字段实现可自动更新的自定义页码字段，替代内置的{PAGE * CardText}以支持小众语言。

步骤1：编写VBA数字转文本函数 #

1. 打开Word的VBA编辑器（按Alt+F11）。
2. 在工程窗口中右键点击模板/文档 → 插入 → 模块。
3. 粘贴以下代码，根据你的小众语言需求扩展转换逻辑：

Function CustomPageText(Optional ByVal langCode As String = "en") As String
    Dim pageNum As Integer
    ' 获取当前页码（兼容文档生成场景）
    pageNum = ActiveDocument.ActiveWindow.View.Sections(1).Range.Information(wdActiveEndPageNumber)
    
    ' 根据语言代码返回对应文本
    Select Case langCode
        ' 英文示例
        Case "en"
            Select Case pageNum
                Case 1: CustomPageText = "one"
                Case 2: CustomPageText = "two"
                Case 12: CustomPageText = "twelve"
                ' 扩展更多数字映射
            End Select
        ' 小众语言示例（替换为你的语言逻辑）
        Case "xx"
            Select Case pageNum
                Case 1: CustomPageText = "xxx"
                Case 2: CustomPageText = "yyy"
                ' 扩展更多数字映射
            End Select
        ' 添加更多语言分支
    End Select
End Function

步骤2：在页脚模板中插入自定义字段 #

1. 进入页脚编辑模式，将光标定位到目标位置。
2. 按Ctrl+F9插入字段括号{ }。
3. 在括号内输入以下内容（替换"xx"为你的目标语言代码）：

   { = CustomPageText("xx") }
   

4. 按F9更新字段，即可看到转换后的页码文本。

步骤3：优化使用体验（可选） #

如果需要重复插入该字段，可将其添加到Quick Parts：

• 选中整个字段（包括{ }）。
• 点击「插入」选项卡 → 「Quick Parts」 → 「保存所选内容」。
• 命名为「自定义页码文本」，选择「字段」类别，后续可直接插入。

步骤4：确保批量生成时自动更新 #

在你生成数百页内容的VBA代码末尾，添加字段更新指令：

' 更新所有字段（包括页脚中的自定义字段）
ActiveDocument.Fields.Update

若需要文档打开时自动更新，可在模板的Document_Open事件中添加：

Private Sub Document_Open()
    Me.Fields.Update
End Sub

内容的提问来源于stack exchange，提问作者Alexander H. Stebner