网络营销网站建设流程,多少关键词排名优化软件,商城网站要怎样建设,小视频制作软件appMathtype公式自动转Word自带公式 前言/word技巧探索过程参考资料#xff08;有效与无效#xff09;全自动方案/代码/教程 前言/word技巧
word公式 用ALT号可以输入简单latex显示公式#xff1b;复杂度#xff0c;需要引入latex包的不行#xff1b;显示不出来的话按一下en… 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中编写代码 AltF11插入模块 粘贴代码修改自这里
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 IfExit 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代码
