如何在Word中选择所有公式？

Author: Amanda Li Last Modified: 2025-05-07

如何在Word中选择所有公式？本教程介绍了几种高效选择所有公式的不同方法。

使用“查找和替换”选择所有公式
 使用Kutools for Word快速选择所有公式
 使用VBA选择所有公式

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

Word中的“查找和替换”功能是选择公式的常用方法。

点击“开始”>“查找”>“高级查找”，打开“查找和替换”对话框。
在“查找和替换”对话框中，点击“更多”按钮以显示更多选项。
点击 特殊格式 > 任意数字，然后点击 查找下一个.
提示： 您也可以直接在^#中输入“ 查找内容 ”框并点击 查找下一个.

注意：此方法一次只能选择一个公式。要一次性选择所有公式，请使用下面的Kutools或VBA方法。

使用Kutools for Word快速选择所有公式

Kutools for Word提供了一键选择所有公式的最简便方法。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

点击 Kutools > 段落选取 > 选取公式 即可一次性选择文档中的所有公式。 提示： 如果您先选择文档的一部分，则只会选择该部分中的公式。

结果

从选区中选择的所有公式：
从整个文档中选择的所有公式：

Kutools for Word 是终极的 Word 插件，能够简化您的工作并提升文档处理技能。立即获取！

使用VBA选择所有公式

以下VBA代码可立即选择Word文档中的所有公式。

按Alt + F11打开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