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

有态度的时光2023-08-13 12:00

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