Word宏开发需求：将公式移至新文档并添加编号标注

以下是可直接运行的VBA宏，实现将原文档中的行内/独立公式批量迁移至新文档，并在原位置替换为<Equation 001>格式的编号标注，同时支持同步迁移公式关联的标题：

Sub MigrateEquationsToNewDoc()
    Dim originalDoc As Document
    Dim newDoc As Document
    Dim eqn As OMath
    Dim eqnCount As Integer
    Dim i As Integer
    Dim eqnRange As Range
    Dim captionText As String
    
    Set originalDoc = ActiveDocument
    Set newDoc = Documents.Add
    
    eqnCount = 0
    
    ' 倒序遍历避免删除元素导致索引错乱
    For i = originalDoc.OMaths.Count To 1 Step -1
        Set eqn = originalDoc.OMaths(i)
        eqnCount = eqnCount + 1
        
        ' 复制公式到新文档
        eqn.Range.Copy
        newDoc.Content.Paste
        
        ' 新文档中添加对应编号（可调整格式）
        newDoc.Content.InsertAfter vbCr & "Equation " & Format(eqnCount, "000") & vbCr
        
        ' 替换原位置为标注
        captionText = "<Equation " & Format(eqnCount, "000") & ">"
        Set eqnRange = eqn.Range
        eqnRange.Text = captionText
        
        ' 迁移关联标题（假设标题为紧邻公式的段落，含"Equation"关键词）
        Dim prevPara As Paragraph
        Set prevPara = eqnRange.Paragraphs(1).Previous
        If Not prevPara Is Nothing Then
            If InStr(prevPara.Range.Text, "Equation") > 0 Then
                prevPara.Range.Copy
                newDoc.Content.Paste
                prevPara.Range.Delete
            End If
        End If
    Next i
    
    ' 可选：自动保存新文档，需替换为你的路径
    ' newDoc.SaveAs2 "C:\YourFolder\Extracted_Equations.docx"
    
    MsgBox "共完成 " & eqnCount & " 个公式的迁移！", vbInformation
End Sub

关键逻辑说明 #

1. 倒序遍历OMath集合：正序遍历会因删除公式导致后续元素索引偏移，倒序遍历可确保所有公式都被处理。
2. 完整复制公式格式：通过eqn.Range.Copy复制公式的完整范围，保留原有的行内/独立公式样式。
3. 格式化编号生成：用Format(eqnCount, "000")生成三位补零的编号，匹配示例中的标注格式。
4. 标题同步迁移：额外检查公式的前序段落，识别并迁移含指定关键词的标题段落，解决你之前无法同步标题的问题（若标题格式特殊，可修改InStr的判断条件）。

使用步骤 #

1. 打开目标Word文档，按下Alt+F11打开VBA编辑器
2. 右键点击当前文档，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 点击运行按钮或按下F5执行宏

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