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 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
相关推荐
万里沧海寄云帆15 小时前
Word 插入分节符页码更新问题
windows·microsoft·word
zls3653651 天前
.NET高效下载word文件
开发语言·c#·word·.net
wqqqianqian1 天前
国产linux系统(银河麒麟,统信uos)使用 PageOffice 动态生成word文件
word·动态·pageoffice·国产版
handuoduo12343 天前
windows10 | mathtype导致word中ctrl+v不能用
word·朵朵排版技巧
黄鹂绿柳3 天前
word设置交叉引用快捷键和居中快捷键
word
hibiscusxin3 天前
vue-office:word(.docx)、pdf、excel(.xlsx,.xls)格式文件预览
vue.js·word·excel
scutrobot5 天前
word转pdf保存高清图技巧
pdf·word
小小小CTFER6 天前
Word_小问题解决_1
word
response_L6 天前
PageOffice打开保存文件的执行流程(工作原理)
java·word·excel·在线编辑
大新新大浩浩7 天前
使用docker-compose单点搭建社区版seafile+onlyoffice在线word编辑平台
docker·容器·word