一键批量将文档中mathtype公式转换成word自带公式

1.前置工作

1）确保mathtype 且其功能在word中可用

2）确保在word中启用了宏，并将“开发工具”显示在功能区。

        启用宏：

        

        

开发工具：

        

2.执行代码

       1）选中mathtype->"转换公式"  转换成 MathML2.0 attr 格式

公式先被转换成这种格式

       2）点击开发工具，进入visualBasic ，然后选中“插入 ”-> "模块" 输入下面代码。按F5执行

Sub MathML2OMML(k As Integer)
'用k记录总的转换成功数。
On Error GoTo ErrorHandler   ' 启用错误处理
Application.ScreenUpdating = False '关闭屏幕刷新
Dim i, j, m As Integer
i = 0  '记录转换的公式总数，失败的也会记录在内
j = 0  '防止死循环用的，记录错误次数
m = 0  '记录转换失败次数
 
With Selection.Find   '设置查找表达式，查找转换后的MathML代码
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\<\!-- MathType\@Translator?*End\@5\@5\@ --\>" '通配符选择公式，注意mathtype转换时，最后两个复选框要选中；每个人的开头不同，修改成你自己的；?*是通配符
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
 
    Selection.SetRange 0, 0 '回到文首
 
    Do While .Execute
        With Selection
            .Copy '复制MathML代码
            .PasteAndFormat (WdRecoveryType.wdFormatPlainText) '无格式粘贴MathML代码
        End With
        i = i + 1 '转换公式数+1
    Loop
End With
 
Application.ScreenUpdating = True '开启屏幕刷新
'MsgBox "新转换成功" & i & "个公式，如数字偏大，建议重复运行"
 
k = k + i - m
 
If (m > 10 And i - m > 0) Then
       Call MathML2OMML(k)  '只要失败数超过10，且有新成功的，就重复运行，
 
Else
    a = MsgBox("最后一次运行转换失败" & m & "个公式，是否重复运行", vbYesNo)
   
    If a = vbYes Then
        Call MathML2OMML(k)  '选择是，则重复运行
    Else
        MsgBox ("共新转换成功" & k & "个公式")
        Exit Sub
    End If
 
End If
 
'Exit Sub
 
ErrorHandler:       ' 错误处理
  j = j + 1       '错误出现次数加一
   If j < 100 Then
    Resume       ' 100次以内直接忽略错误，继续执行
   Else
     j = 0    '防止死循环，跳过一行后，继续执行知道100次错误出现
     'MsgBox "运行出错"
     m = m + 1
     Resume Next
   End If
  
 
End Sub
 
Sub 公式转换()
Call MathML2OMML(0)
End Sub

PS:一定要注意前置工作缺一不可，否则转换不成功。