最近,由于工作学习需要,要将word里面的mathype公式转为latex公式。
查了查资料,有alt+\的操作,这样太慢了。通过下面链接的操作,结合起来可以解决问题。
某乎:https://www.zhihu.com/question/532353646
csdn:https://blog.csdn.net/m0_52232795/article/details/130617795
某乎比较详细,但是配合csdn这个更好理解。
csdn这个经过操作之后,会发现,找不到mtEqToLatex()
因此,需要自己新建一个宏,代码如下
Sub mtEqToLatex()
Dim fd As Field
Dim fw As Range
Dim i As Long
t0 = Now
Set fw = Selection.Range
If fw.Start = fw.End Then Exit Sub
Application.ScreenUpdating = False
For Each fd In fw.Fields
If fd.Code Like "*EMBED Equation.*" Then
fd.Select
MathTypeCommands.MTCommand_TeXToggle
i = i + 1
End If
Next
fw.Select
Application.ScreenUpdating = True
Set fw = Nothing
Set fd = Nothing
Debug.Print DateDiff("s", t0, Now)
MsgBox Format(i, "完成 共处理了0个公式")
End Sub