跳到主要内容

如何在Word中选择所有方程式?

如何在Word中选择所有方程式? 本教程将向您介绍以下选择单词中所有方程式的方法。

使用查找和替换选择所有方程式
使用VBA选择所有方程式
使用Kutool for Word快速选择所有方程式


使用查找和替换选择所有方程式

Word中的查找和替换功能是选择所有方程式的最常用方法。

步骤1:点击 首页 >找到最适合您的地方 > 提前查找 打开“查找和替换”对话框。

步骤2: 查找和替换 对话框,单击 更多 按钮以显示更多“搜索选项”,然后单击 Special > 任何数字,最后点击 查找下一个“ 按钮。 看截图:

备注:您可以直接输入“^#“ 进入 寻找什么 文本框,然后单击 查找下一个“ 按钮,如下图所示。

请注意: 此方法一次只能选择一个方程式。 如果您的文档中有多个方程式,并且您想一次选择它们,请应用以下方法。 


从所选内容或整个文档中快速选择所有方程式:

选择方程式 实用程序 Kutools for Word 可以帮助您快速从一个选择中或整个文档中快速选择所有方程式,如下面的屏幕截图所示。 立即下载并试用! (60-天免费试用)


使用VBA选择所有方程式

下面的VBA代码可以帮助您立即从Word文档中选择所有方程式。 请执行以下操作。 

步骤1:按 Alt + F11键 打开 Microsoft Visual Basic应用程序 窗口;

步骤2: Microsoft Visual Basic应用程序 窗口中,单击 插页模块,然后将以下VBA代码复制到“模块”窗口中。

步骤3:点击 运行 文档反向符号 6 按钮或按下 F5 应用VBA。 然后立即选择当前文档中的所有方程式。

VBA代码:选择文档中的所有方程式:

Sub SelectAllEquations()
Dim xMath As OMath
Dim I As Integer
With ActiveDocument
    .DeleteAllEditableRanges wdEditorEveryone
    For I = 1 To .OMaths.Count
        Set xMath = .OMaths.Item(I)
        xMath.Range.Paragraphs(1).Range.Editors.Add wdEditorEveryone
    Next
    .SelectAllEditableRanges wdEditorEveryone
    .DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

使用Kutool for Word快速选择所有方程式

这是使用Kutool for Word选择所有方程式的最便捷方法。 只需单击一下,就可以帮助您从选区或整个文档中选择方程式。 请执行以下操作。

Kutools for Word :拥有100多个方便的Word加载项, 免费试用,没有限制 60.

点击 库工具 >  > 选择方程式。 看截图:

请注意: 如果首先在文档中进行选择,则此工具将仅选择该选择的所有方程式。 否则,将立即选择当前文档中的所有方程式。

您可以看到如下所示的结果截图

从选择中选择所有方程式:

从文档中选择所有方程式:

如果您想免费试用该实用程序,请转到 免费下载软件 首先,然后按照上述步骤进行操作。

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/XLSX)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件 ...

内容编辑: 批量查找和替换 跨多个文件   /  调整所有图片的大小   /  转置表行和列  /  将表格转换为文字 ...

🧹 轻松清洁扫开 多余的空间  /  分节符  /   所有标题  /  文本框  /  超链接  /  如需更多删除工具,请前往我们的删除组

创意插入: 插页 千位分隔符  /  复选框  /  单选按钮  /  二维码  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  /  在我们的插入组中发现更多信息

🔍 精准选择: 精确定位特定页面  /    /  形状  /  标题段落  /  使用我们的选择组轻松导航

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具 ...

使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。

了解更多       免费下载      购买
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For Each tempTable In ActiveDocument.InlineShapes When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
This comment was minimized by the moderator on the site
When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
This comment was minimized by the moderator on the site
When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations