word将mathtype公式批量转为latex公式

最近，由于工作学习需要，要将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 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