嗨，我之前折腾Word宏的时候也踩过一模一样的坑——用InsertBefore或InsertAfter来替换页码域真的容易出问题，而且你之前代码里的Selection.WholeStory其实根本不会包含页眉页脚的内容，这就是为啥之前的操作没生效的核心原因！

给你一个经过实测的宏代码，完美实现你要的两个目标：把页眉页脚里的页码域转成纯文本，并且彻底清除所有域代码：

Sub ConvertPageNumberFieldsToText()
    Dim doc As Document
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim ftr As HeaderFooter
    Dim fld As Field
    Dim screenUpdating As Boolean
    
    ' 先保存当前屏幕更新状态，再关闭它提升宏的运行速度
    screenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set doc = ActiveDocument
    
    ' 遍历文档里的每一个节（Word的页眉页脚是按节独立设置的）
    For Each sec In doc.Sections
        ' 处理当前节的所有页眉（包括首页、奇偶页这类特殊页眉）
        For Each hdr In sec.Headers
            ' 只处理有内容的页眉，避免空页眉导致报错
            If hdr.Exists Then
                ' 遍历页眉里的每一个域
                For Each fld In hdr.Range.Fields
                    ' 精准定位页码域（wdFieldPage对应的常量值是19）
                    If fld.Type = wdFieldPage Then
                        ' 解除域链接，直接把域转换成显示的纯文本
                        fld.Unlink
                    End If
                Next fld
            End If
        Next hdr
        
        ' 页脚的处理逻辑和页眉完全一致
        For Each ftr In sec.Footers
            If ftr.Exists Then
                For Each fld In ftr.Range.Fields
                    If fld.Type = wdFieldPage Then
                        fld.Unlink
                    End If
                Next fld
            End If
        Next ftr
    Next sec
    
    ' 恢复屏幕更新，弹出完成提示
    Application.ScreenUpdating = screenUpdating
    MsgBox "页码域已全部转换为纯文本！", vbInformation
End Sub

小细节说明： #

• 开头关闭屏幕更新是为了避免宏运行时界面狂闪，同时也能让代码跑得更快；
• 必须遍历每个节，因为Word里不同节的页眉页脚可能是独立设置的（比如首页不同、奇偶页不同），漏掉任何一节都会有问题；
• 用hdr.Exists判断页眉是否存在，是为了处理那些空的、没内容的页眉，防止代码报错；
• 专门判断wdFieldPage类型的域，是为了只处理页码域，不会误动页眉页脚里的其他域（比如日期域、作者域这类）；
• fld.Unlink是Word原生的功能，直接把域转换成它当前显示的纯文本，完全不会留下任何域代码，这比手动插文本靠谱太多了！

如果你之后需要把页眉页脚里的所有域都转成纯文本，只要去掉If fld.Type = wdFieldPage Then这个判断，直接对所有域执行Unlink就行。

备注：内容来源于stack exchange，提问作者Eduardo A. Sánches Torres