Skip to main content

如何在 Word 中選取所有嵌入的 Visio 對象?

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

如果您的 Word 文檔包含多個嵌入的 Visio 對象,逐一手動選取可能會非常繁瑣。本教程介紹了兩種方法,幫助您快速選取文檔中的所有嵌入 Visio 對象。

使用 VBA 選取所有嵌入的 Visio 對象

使用 Kutools for Word 選取所有嵌入的 Visio 對象

推薦的 Word 生產力工具

Kutools for Word:整合 AI ?,超過 100 項進階功能,可節省 50% 的文檔處理時間。免費下載

Office Tab:為 Word(及其他 Office 工具)引入類似瀏覽器的標籤,簡化多文檔切換操作。免費下載


使用 VBA 選取所有嵌入的 Visio 對象

您可以使用 VBA 宏來快速選取所有嵌入的 Visio 對象,而不是手動逐一選取。以下是具體操作步驟:

  1. 按下 Alt + F11 打開 Microsoft Visual Basic for Applications 視窗。
  2. 點擊 插入 > 模組,並將以下代碼粘貼到模組視窗中:
    Sub SelectAllEmbedWordObject()
    Dim tempTable As InlineShape
    Application.ScreenUpdating = False
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each tempTable In ActiveDocument.InlineShapes
        If InStr(tempTable.OLEFormat.ProgID, "Visio") = 1 Then
            tempTable.Range.Paragraphs(1).Range.Editors.Add wdEditorEveryone
        End If
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
    End Sub
  3. 點擊 執行 Run 按鈕或按下 F5 以執行該代碼。
Office Tab:為 Word、Excel、PowerPoint... 帶來分頁介面
Navigate through documents using Office Tab

使用 Kutools for Word 選取所有嵌入的 Visio 對象

如果您不熟悉使用宏,或者更喜歡簡單的方法,Kutools for Word 提供了一鍵解決方案。通過其「選取嵌入 Visio 對象的段落」功能,您可以立即選取文檔中的所有 Visio 對象。

Kutools for Word內建人工智慧 ?,提供超過 100 種實用功能,簡化您的工作流程。
  1. 點擊 Kutools > 段落(在「選取」組中)> 選取嵌入 Visio 對象的段落。
    Select Paragraphs with Embedded Visio Objects option on the Kutools tab on the ribbon

注意:如果您在使用此工具之前選取了文檔的一部分,則該工具只會選取所選範圍內的嵌入 Visio 對象。

Kutools for Word 是終極的 Word 增益工具,能夠簡化您的工作並提升文檔處理技能。立即獲取!

最佳辦公效率工具

Kutools for Word - 透過超過 100 項卓越功能提升您的 Word 體驗!

🤖 Kutools AI 功能AI助手 / 即時助手 / 超級潤色(保留格式)/ 超級翻譯(保留格式)/ AI遮擋 / AI校正...

📘 文件精通拆分頁面 / 合併文檔 / 以多種格式導出選擇內容(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件進行批量查找和替換 / 調整所有圖片大小 / 翻轉表格的行與列 / 表格轉文本...

🧹 輕鬆清理:清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具,請前往“清除”組...

創意插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...

🔍 精確選擇:精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多選擇 ”功能增強導航...

星級增強功能跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 轉換工具...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要試用這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具