Word邮件合并文档-在页眉中设置页面数。

以下是使用VBA代码在Word文档的页眉中设置页面数的示例：

Sub MailMergePageNumber()
    Dim i As Integer
    Dim doc As Document
    Dim section As Section
    Dim header As HeaderFooter
    
    ' 获取当前文档对象
    Set doc = ActiveDocument
    
    ' 循环处理每个节
    For Each section In doc.Sections
        ' 获取节的页眉
        Set header = section.Headers(wdHeaderFooterPrimary)
        
        ' 在页眉中插入字段，用于显示当前页码
        With header.Range
            .Collapse wdCollapseStart
            .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="PAGE"
            .Fields.Update
        End With
        
        ' 设置页码格式
        For i = 1 To header.Range.Fields.Count
            If header.Range.Fields(i).Type = wdFieldPage Then
                header.Range.Fields(i).Code.Text = "PAGE \* ROMAN"
            End If
        Next i
    Next section
    
    ' 刷新页面显示
    doc.ActiveWindow.View.Type = wdPrintView
    doc.ActiveWindow.View.SeekView = wdSeekMainDocument
End Sub

以上代码会遍历文档中的每个节，然后在每个节的页眉中插入一个页码字段，并设置页码格式为罗马数字。执行该代码后，文档的每个页眉中都会显示当前页码。

请注意，该代码是使用VBA编写的，并且需要在Word文档中执行。将代码复制粘贴到Word的宏编辑器中（按下ALT+F11即可打开宏编辑器），然后运行该宏即可实现在页眉中设置页面数的功能。