如何在MS Word中批量将脚注内容移至对应标记旁并套Footnote标签

功能说明 #

脚本可批量遍历文档内所有脚注，自动定位正文对应的脚注标记，将脚注内容包裹在<Footnote>...</Footnote>标签内替换原标记，处理完成后自动清空原脚注区域，无需手动逐一点选标记，适配百条以上脚注的大批量文档处理场景。

完整VBA代码 #

Sub BatchMoveFootnotesToBody()
    Dim fn As Footnote
    Dim i As Long
    Dim fnContent As String
    Dim totalCount As Long
    
    ' 统计待处理脚注总数
    totalCount = ActiveDocument.Footnotes.Count
    ' 关闭屏幕刷新，提升大批量处理时的运行速度
    Application.ScreenUpdating = False
    
    ' 倒序遍历脚注，避免删除操作导致的索引错位问题
    For i = totalCount To 1 Step -1
        Set fn = ActiveDocument.Footnotes(i)
        ' 提取脚注文本，自动去除首尾多余空白字符
        fnContent = Trim(fn.Range.Text)
        ' 替换正文内的脚注引用标记为带标签的脚注内容
        fn.Reference.Text = "<Footnote>" & fnContent & "</Footnote>"
        ' 删除已完成迁移的原脚注
        fn.Delete
    Next i
    
    ' 恢复Word界面刷新
    Application.ScreenUpdating = True
    MsgBox "处理完成，共迁移 " & totalCount & " 条脚注", vbInformation
End Sub

使用方法 #

• 打开目标Word文档，按下快捷键Alt+F11启动VBA编辑器
• 在左侧项目资源管理器中右键点击当前文档名称，依次选择「插入」-「模块」
• 将上述代码完整粘贴到弹出的模块代码编辑窗口
• 按下F5键，选择运行BatchMoveFootnotesToBody宏即可等待处理完成

注意：运行脚本前请务必备份原文档，避免异常操作导致内容丢失。当前版本脚本仅提取脚注内的纯文本内容，若脚注包含图片、复杂格式需保留，可根据实际需求调整内容提取逻辑。

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