跳至主要内容

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

如何在 Word 中选择所有 Word 对象?

Author Amanda Li Last modified

如果您在文件中插入了嵌入的 Word 文档对象,逐个选择它们可能会非常繁琐。本教程将向您展示如何使用 VBA 宏或 Kutools for Word 的一键解决方案快速选择所有嵌入的 Word 对象。

使用 VBA 选择所有嵌入的 Word 文档对象

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

推荐的Word生产力工具

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

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


使用 VBA 选择所有嵌入的 Word 文档对象

与其手动选择每个嵌入的 Word 对象,不如使用 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, "Word") = 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 选择所有嵌入的 Word 文档对象

为了更简单的解决方案,Kutools for Word 可以让您只需单击一下即可选择所有嵌入的 Word 文档对象,无需使用 VBA。您可以从整个文档中选择对象,也可以仅在选定范围内选择。

Kutools for Word搭载 AI 🤖,提供超过 100 项实用功能,简化您的任务。
  1. 点击 Kutools > 段落 > 选取嵌入 Word 对象的段落。
    Select All Embedded Word Objects Paragraphs option on the Kutools tab on the ribbon

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

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工具