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

有态度的时光

已于 2023-12-11 20:31:43 修改

阅读量2.4k

点赞数 1

分类专栏：杂类文章标签： word 公式 latex

于 2023-08-09 15:48:55 首次发布

本文链接：https://blog.csdn.net/Wuli_jiejie/article/details/132189970

版权

杂类专栏收录该内容

3 篇文章 1 订阅

订阅专栏

最近，由于工作学习需要，要将word里面的mathype公式转为latex公式。
查了查资料，有alt+\的操作，这样太慢了。通过下面链接的操作，结合起来可以解决问题。
某乎：https://www.zhihu.com/question/532353646
csdn：https://blog.csdn.net/m0_52232795/article/details/130617795

某乎比较详细，但是配合csdn这个更好理解。
csdn这个经过操作之后，会发现，找不到mtEqToLatex()
Ver23.12.11换了一台电脑需要使用同样功能，这次详细更新一下步骤，操作会快点。

第一步：（1）点开发工具-visual basic->工具->引用
在这里插入图片描述

找到并勾选mathTypeCommands

在这里插入图片描述

第二步，给权限-开发工具->宏安全性->勾选启用所有宏（需要关闭所有word并重新打开word）
在这里插入图片描述

重启word！！，然后点击开发工具-宏

创建宏

因此，需要自己新建一个宏，代码如下

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

选择要转换的区域(Ctrl+A全选）->点击宏->点击mtEqToLatex->点击运行->等待转换即可