如何在 Word 中選取所有公式?
如何在 Word 中選取所有公式?本教程介紹了幾種高效選取所有公式的不同方法。
使用「查找和替換」選取所有公式
使用 Kutools for Word 快速選取所有公式
使用 VBA 選取所有公式
使用「查找和替換」選取所有公式
Word 中的「查找和替換」功能是選取公式的常用方法。
- 點擊 Home > Find > Advanced Find 以打開「查找和替換」對話框。
- 在「查找和替換」對話框中,點擊「更多」按鈕以顯示更多選項。
- 點擊 特殊格式 > 任意數字,然後點擊 查找下一個. 提示:您也可以直接在「查找內容」框中輸入“^#”,然後點擊「查找下一個」。
注意:此方法一次只能選取一個公式。要一次性選取全部公式,請使用下面介紹的 Kutools 或 VBA 方法。
使用 Kutools for Word 快速選取所有公式
Kutools for Word 提供了一鍵選取所有公式的最簡便方法。
- 點擊 Kutools > 段落 > 選取公式,即可一次性選取文檔中的所有公式。提示:如果您事先選取了文檔的一部分,則只會選取該部分中的公式。
結果
從選定範圍內選取的所有公式:
從整個文檔中選取的所有公式:
使用 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
- 點擊 執行
按鈕或按下 F5 來執行 VBA。
最佳辦公效率工具
Kutools for Word -讓你的 Word進階,擁有超過 100 項強大功能!
🤖 Kutools AI Features:AI Assistant / 即時助手 / 超級潤色(保留格式) / 超級翻譯(保留格式) / AI遮擋 / AI校正...
📘 文檔掌控:文檔拆分頁面 / 文檔合併 / 選取內容多格式導出(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...
✏內容編輯:跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...
🧹 潔淨無憂:一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...
➕ 創新插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...
🔍 精準選取:鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...
⭐ 優質強化:輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 項轉換工具...
🌍 支援40+ 種語言:可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言!
