模特公司网站模板,产品推广方案策划书,网络系统设计,报名入口网站建设最近#xff0c;由于工作学习需要#xff0c;要将word里面的mathype公式转为latex公式。 查了查资料#xff0c;有alt\的操作#xff0c;这样太慢了。通过下面链接的操作#xff0c;结合起来可以解决问题。 某乎#xff1a;https://www.zhihu.com/question/532353646 csd…最近由于工作学习需要要将word里面的mathype公式转为latex公式。 查了查资料有alt\的操作这样太慢了。通过下面链接的操作结合起来可以解决问题。 某乎https://www.zhihu.com/question/532353646 csdnhttps://blog.csdn.net/m0_52232795/article/details/130617795
某乎比较详细但是配合csdn这个更好理解。 csdn这个经过操作之后会发现找不到mtEqToLatex() 因此需要自己新建一个宏代码如下
Sub mtEqToLatex()Dim fd As FieldDim fw As RangeDim i As Longt0 NowSet fw Selection.RangeIf fw.Start fw.End Then Exit SubApplication.ScreenUpdating FalseFor Each fd In fw.FieldsIf fd.Code Like *EMBED Equation.* Thenfd.SelectMathTypeCommands.MTCommand_TeXTogglei i 1End IfNextfw.SelectApplication.ScreenUpdating TrueSet fw NothingSet fd NothingDebug.Print DateDiff(s, t0, Now)MsgBox Format(i, 完成 共处理了0个公式)
End Sub
