跳至主要内容

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

Author: Xiaoyang Last Modified: 2025-05-07

统计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


最佳办公生产力工具

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