跳到主要内容

如何在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 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  查询资料 基于文档,全部在Word中

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

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

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

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

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

👉 想尝试这些功能吗? Kutools for Word 提供了 60-day免费试用,没有任何限制! 🚀
 
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