如何计算Word文档中的图像数量？

如果您的Word文档中有多个图形同时包含嵌入式图像和浮动形状，则您要计算整个文档中这些图形的数量，如何才能快速而正确地获取图像数量？

使用查找和替换功能计算嵌入式图像的数量

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

使用查找和替换功能计算嵌入式图像的数量

查找和替换 Word中的功能可以帮助您仅快速，轻松地计算嵌入式图片的数量，请执行以下操作：

1。点击主页 > 找到最适合您的地方 > 高级查找，请参见屏幕截图：

文档计数图像1

2。在 查找和替换 对话框中的 找到最适合您的地方 标签，输入 ^g 到 查找内容 文本框，然后选择 主要文件 来自查找下拉列表，请参见屏幕截图：

文档计数图像2

3。然后，您可以看到此Word文档中的内联图像数已显示为以下屏幕截图：

文档计数图像3

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

上述方法只能计算内嵌图像的数量，如果文档中有一些浮动形状，则不会计算在内。以下VBA代码可以帮助您同时计算内嵌图像和浮动形状，请按以下步骤操作：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。然后，点击插页 > 模块，将以下代码复制并粘贴到打开的空白模块中，请参见屏幕截图：

VBA代码：计算嵌入式图像和浮动形状的数量：

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文档中有多少行内图像和浮动形状，请参见屏幕截图：

文档计数图像4