跳至主要内容

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

如何计算Word文档中的图片数量?

Author Xiaoyang Last modified

统计Word文档中的图片数量在多种情况下都很有用,例如质量控制、遵循指南或仅仅是为了组织需要。手动统计长篇文档中的图片既繁琐又容易出错。幸运的是,有一些高效的方法可以快速准确地统计Word文档中的图片数量。

在本教程中,我们将指导您完成轻松统计图片数量的步骤,帮助您更有效地管理文档。

使用查找和替换功能统计内嵌图片的数量

使用Kutools for Word统计多个文档中的内嵌图片数量

使用VBA代码统计内嵌图片和浮动形状的数量


使用查找和替换功能统计内嵌图片的数量

Word中的查找和替换功能允许您快速统计内嵌图片的数量。请按照以下步骤操作:

  1. 点击 开始 > 查找 > 高级查找.

    Advanced Find option on the Ribbon

  2. 查找和替换 对话框中,在 查找 选项卡下,输入 ^g查找内容 文本框中。然后选择 主文档查找位置 下拉列表中。

    Find and Replace dialog with '^g' in the Find what text box and 'Main Document' selected from the Find In drop down list

  3. 文档中内嵌图片的数量将显示在对话框底部。

    Find and Replace dialog displaying the count of items matching the criteria

Office Tab:为 Word、Excel、PowerPoint 等带来选项卡式界面…
Navigate through documents using Office Tab

使用Kutools for Word统计多个文档中的内嵌图片数量

Kutools for Word提供了一种快速有效的方法来统计多个文档中的内嵌图片数量。该工具简化了流程,通过自动化统计所选文件中的图片占位符(用^g表示)来节省时间和精力。

Kutools for Word搭载 AI 🤖,提供超过 100 项实用功能,简化您的任务。
  1. Kutools 选项卡上,选择 批量替换.

    Batch Replacement option on the Kutools tab in Word ribbon

  2. 批量查找与替换 对话框中,按如下方式配置设置:
    1. 点击添加行以创建一个用于查找内嵌图片的规则。
    2. 在添加行的查找字段中,输入^g(表示内嵌图片占位符)。
    3. 点击添加按钮并选择添加文件添加文件夹以导入要统计内嵌图片的文档。
    4. 点击 查找 以在所有选定文档中执行查找和统计操作。

      Batch Find and Replace dialog with ^g in the Find field

  3. 批量查找与替换 对话框将切换到 预览结果 选项卡,您可以在此查看内嵌图片的总数。确认无误后,点击 关闭.

    Batch Find and Replace dialog with preview results

就是这样!每个选定文档中的内嵌图片数量现在已统计并一次性显示出来。

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

使用VBA代码统计内嵌图片和浮动形状的数量

前面的方法仅统计内嵌图片,并不包括文档中的浮动形状。要统计内嵌图片和浮动形状,可以使用以下VBA代码。请按照以下步骤操作:

  1. 按住Alt + F11键打开Microsoft Visual Basic for Applications窗口。
  2. 点击 插入 > 模块。将以下代码复制并粘贴到空白模块中:
    Sub CountImagesInDoc()
        Dim xInlines As Long
        Dim xFloaters As Long
        Dim sh As Shape
        Dim tbxs As Long
        Dim msg As String
        With ActiveDocument
            For Each sh In .Shapes
                If sh.Type = msoTextBox Then tbxs = tbxs + 1
            Next
            xInlines = .InlineShapes.Count
            xFloaters = .Shapes.Count - tbxs
        End With
        xPrompt = "Inline images:" & vbTab & xInlines & vbCr
        xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
        xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
        xPrompt = xPrompt & "Counts do not include headers and footers, etc."
        MsgBox xPrompt, vbInformation, "Kutools for Word"
    End Sub
    
  3. 粘贴代码后,按 F5 运行它。将出现一个提示框,显示Word文档中内嵌图片和浮动形状的数量。

    Success dialog


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