Mathtype公式自动转Word自带公式

公式自动转Word自带公式"/>

Mathtype公式自动转Word自带公式

Mathtype公式自动转Word自带公式

• 前言/word技巧
• 探索过程
• 参考资料（有效与无效）
• 全自动方案/代码/教程

前言/word技巧

• word公式
  • 用ALT+=号可以输入简单latex显示公式；复杂度，需要引入latex包的不行；显示不出来的话按一下enter键就出来了，需要手动删除换行
  • 公式末尾加#(1)会显示编号（1）;不会自动更新编号
• Mathtype公式
  • 选择公式，右键；对象，转化为office math，可以变为word公式
  • 在我的电脑上无效；可能是因为word版本原因（需要2016甚至更新）；可能是因为mathtype是破解的
• AxMath
  • 可以直接转word公式
  • 没有破解版仅仅找到32位的；我的64位不能用
  • 费用36元，不想给
• GrandEq
  • 可以latex、word、pdf、公式互转
  • 巨贵，买不起
  • 安装了，发现没有10次免费试用了

探索过程

• 基于各种原因，转换失败；

• 参考博客，发现可以：

  • 通过mathtype全文公式转化为arc语句，再手动复制粘贴转为word公式
  • 为了自动化，可以再编写vba命令，自动完成

参考资料（有效与无效）

• 无效资料
  原创；方法源头；VBA代码会报错4196

  N手资料；代码报错

• 有效资料
  原创；代码稍作更改有效

全自动方案/代码/教程

• 转换公式为attr代码；记得勾选包括译者名字
  

• 转化结果，非常长； 观察首尾译者名字，每个人的不太一样
  

• word中编写代码

  • Alt+F11
  • 插入，模块
    

• 粘贴代码；修改自这里

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 = TrueSelection.SetRange 0, 0 '回到文首Do While .ExecuteWith Selection.Copy '复制MathML代码.PasteAndFormat (WdRecoveryType.wdFormatPlainText) '无格式粘贴MathML代码End Withi = i + 1 '转换公式数+1Loop
End WithApplication.ScreenUpdating = True '开启屏幕刷新
'MsgBox "新转换成功" & i & "个公式，如数字偏大，建议重复运行"k = k + i - mIf (m > 10 And i - m > 0) ThenCall MathML2OMML(k)  '只要失败数超过10，且有新成功的，就重复运行，Elsea = MsgBox("最后一次运行转换失败" & m & "个公式，是否重复运行", vbYesNo)If a = vbYes ThenCall MathML2OMML(k)  '选择是，则重复运行ElseMsgBox ("共新转换成功" & k & "个公式")Exit SubEnd IfEnd If'Exit SubErrorHandler:       ' 错误处理j = j + 1       '错误出现次数加一If j < 100 ThenResume       ' 100次以内直接忽略错误，继续执行Elsej = 0    '防止死循环，跳过一行后，继续执行知道100次错误出现'MsgBox "运行出错"m = m + 1Resume NextEnd IfEnd SubSub 公式转换()
Call MathML2OMML(0)
End Sub

• 按F5运行；成功转换98%的公式；剩下的异常的手动调调
• 注意通配符头尾根据自己的译者名字修改；不然搜索不到MathML代码