word将mathtype公式批量转为latex公式-Toy模板网

这篇具有很好参考价值的文章主要介绍了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()
Ver23.12.11换了一台电脑需要使用同样功能，这次详细更新一下步骤，操作会快点。

第一步：（1）点开发工具-visual basic->工具->引用
word将mathtype公式批量转为latex公式,杂类,word,公式,latex

找到并勾选mathTypeCommands

word将mathtype公式批量转为latex公式,杂类,word,公式,latex

第二步，给权限-开发工具->宏安全性->勾选启用所有宏（需要关闭所有word并重新打开word）
word将mathtype公式批量转为latex公式,杂类,word,公式,latex

重启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->点击运行->等待转换即可文章来源地址https://www.toymoban.com/news/detail-646830.html

到了这里，关于word将mathtype公式批量转为latex公式的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！