如何用Word VBA将<eq></eq>标签内的文本转换为公式？

以下是具体操作步骤和代码：

1. 打开宏编辑器
   按下Alt+F11快捷键，或者通过Word顶部菜单栏的「开发工具」→「Visual Basic」打开宏编辑界面。

2. 插入模块
   在左侧「项目」面板中，右键点击当前文档名称，选择「插入」→「模块」，新建一个空白模块。

3. 粘贴VBA代码
   将以下代码复制粘贴到模块的代码编辑区域：

   Sub ConvertEqTagsToMaths()
       Dim doc As Document
       Dim findRange As Range
       Dim eqStartRange As Range
       Dim eqEndRange As Range
       Dim mathRange As Range
       
       Set doc = ActiveDocument
       Set findRange = doc.Content
       
       ' 遍历查找所有<eq>起始标签
       With findRange.Find
           .Text = "<eq>"
           .Forward = True
           .Wrap = wdFindStop
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           
           Do While .Execute
               Set eqStartRange = findRange.Duplicate
               eqStartRange.Collapse wdCollapseEnd ' 定位到<eq>标签末尾
               
               ' 查找对应的</eq>结束标签
               Set eqEndRange = eqStartRange.Duplicate
               With eqEndRange.Find
                   .Text = "</eq>"
                   .Forward = True
                   .Wrap = wdFindStop
                   If .Execute Then
                       ' 提取标签之间的公式文本范围
                       Set mathRange = doc.Range(eqStartRange.Start, eqEndRange.Start)
                       
                       ' 为选中的文本插入公式（等效于Alt+=）
                       doc.OMaths.Add Range:=mathRange
                       
                       ' 删除<eq>和</eq>标签
                       eqStartRange.MoveStart wdCharacter, -4 ' 回到<eq>标签开头
                       eqStartRange.End = eqEndRange.End
                       eqStartRange.Delete
                   End If
               End With
           Loop
       End With
       
       MsgBox "公式转换完成！", vbInformation
   End Sub
   

4. 运行宏
   回到Word主界面，按下Alt+F8快捷键，在弹出的宏对话框中选择ConvertEqTagsToMaths，点击「运行」即可批量处理所有标签。

注意事项 #

• 运行前建议先备份文档，避免意外修改导致内容丢失；
• 确保文档中的<eq>和</eq>标签成对且不嵌套，否则代码可能无法正确识别；
• 代码仅负责将标签内的文本转换为公式对象，如需完整解析LaTeX代码为专业数学公式，需额外安装支持LaTeX的Word插件（你提到无需完整格式化，此代码已满足需求）。

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