目錄

一、準(zhǔn)備

1.調(diào)用MathType庫

（1）點(diǎn)開發(fā)工具-工具-引用

（2）勾選【MathTypeCommands】類

2.內(nèi)部方法/命令

二、操作方法

1.假設(shè)需求

2.處理速度對比

（1）循環(huán)方法

（2）直接運(yùn)行

三.分析

四、完整思路與代碼

1.思路

2.最終推薦代碼

---

一、準(zhǔn)備

1.調(diào)用MathType庫

（1）點(diǎn)開發(fā)工具-工具-引用

開發(fā)工具-工具-引用

（2）勾選【MathTypeCommands】類

勾選MathType類-確定

2.內(nèi)部方法/命令

MathTypeCommands.MTCommand_TeXToggle

意思是在MathType格式和Latex格式之間，切換所選區(qū)域公式的格式

二、操作方法

因?yàn)槭峭ㄟ^VBA代碼編寫我們既可以寫循環(huán)（對選區(qū)的每個(gè)公式單獨(dú)選中，切換），又可以一步完成（全選需要處理的所有公式，直接寫一條語句即可完成）。簡單對比一下：

1.假設(shè)需求

這里準(zhǔn)備了兩內(nèi)容相同的文檔，都是34頁公式，我們對全文公式操作。

兩份相同的待處理文檔

2.處理速度對比

（1）循環(huán)方法

A.示例代碼

Rem 運(yùn)行此代碼請先勾選上MathType庫 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個(gè)公式") End Sub

B.測試結(jié)果

全選【文檔1】，運(yùn)行上面的代碼

運(yùn)行結(jié)果

在立即窗口看到，運(yùn)行完成用了149秒，速度挺慢。

（2）直接運(yùn)行

A.示例代碼

Rem 運(yùn)行此代碼請先勾選上MathType庫 Sub mtEqToLatex_All()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.*" Theni = i + 1End IfNextMathTypeCommands.MTCommand_TeXTogglefw.SelectApplication.ScreenUpdating = TrueSet fw = NothingSet fd = NothingDebug.Print DateDiff("s", t0, Now)MsgBox Format(i, "完成 共處理了0個(gè)公式") End Sub

B.測試結(jié)果

全選【文檔2】，運(yùn)行上面的代碼

運(yùn)行結(jié)果

在立即窗口看到，運(yùn)行完成用了？？？秒。

大概運(yùn)行了4-5分鐘，屏幕還在一直抖動(dòng)，因?yàn)檫\(yùn)行太慢，就手動(dòng)停止了。（此時(shí)還只運(yùn)行到第5頁）

這種方法運(yùn)行更慢，不可取。

三.分析

最初還以為全選一次運(yùn)行可以更快，因?yàn)槲艺J(rèn)為MathType插件里面應(yīng)該優(yōu)化了方法，本來就是循環(huán)。但是最終的結(jié)果并不是。

所以說有時(shí)候代碼操作和手動(dòng)操作的區(qū)域還是很大的。

四、完整思路與代碼

1.思路

（1）選擇區(qū)域，防止誤操作

（2）遍歷區(qū)域內(nèi)的域，因?yàn)镸athType公式的域代碼必定包含【EMBED Equation.】，用like方法比較判斷是否為MathType公式

注：此處可以用MathType內(nèi)部方法逐個(gè)選中公式，有興趣可先自行研究，后面可能會(huì)專門講

（3）如果是MathType公式，則選中這個(gè)域（公式）所在區(qū)域，執(zhí)切換命令，然后計(jì)數(shù)

（4）循環(huán)完成，操作結(jié)束

2.最終推薦代碼

Rem 運(yùn)行此代碼請先勾選上MathType庫 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個(gè)公式") End Sub

總結(jié)

以上是生活随笔為你收集整理的Word VBA：MathType公式与Latex公式切换的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。