跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

如何在 Word 中选择所有嵌入的 Visio 对象?

Author Amanda Li Last modified

如果您的 Word 文档包含多个嵌入的 Visio 对象,逐个选择它们可能会很繁琐。本教程介绍了两种方法,帮助您快速选择文档中的所有嵌入 Visio 对象。

使用 VBA 选择所有嵌入的 Visio 对象

使用 Kutools for Word 选择所有嵌入的 Visio 对象

推荐的Word生产力工具

Kutools for Word:集成AI 🤖,超过 100 个高级功能可节省您50%的文档处理时间。免费下载

Office Tab:为Word(及其他Office工具)引入类似浏览器的标签页,简化多文档导航。免费下载


使用 VBA 选择所有嵌入的 Visio 对象

与其手动选择每个嵌入的 Visio 对象,不如使用 VBA 宏快速选择它们。操作步骤如下:

  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搭载 AI 🤖,提供超过 100 项实用功能,简化您的任务。
  1. 点击 Kutools > 段落(在“选取”组中)> 选取嵌入 Visio 对象的段落。
    Select Paragraphs with Embedded Visio Objects option on the Kutools tab on the ribbon

注意:如果您在使用此工具之前选择了文档的一部分,则只会选择该部分内的嵌入 Visio 对象。

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

最佳Office办公效率工具

Kutools for Word - 用超过100项强大功能全面提升你的Word体验!

🤖 Kutools AI 功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……

📘 文档掌控分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

正文编辑跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……

🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……

创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……

🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……

实用增强跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 转换工具……

🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即体验这些功能?马上下载 Kutools for Word!🚀
 

✨ Kutools for Office – 一次安装,五大强力工具集成!

内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间

最佳Office办公效率工具

Kutools for Word - 100+ 项Word工具