提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

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

如果Word文档中有多个图形同时包含内嵌图像和浮动图形,那么现在,您想要计算整个文档中这些图形的数量,如何快速准确地获取图像数量?

使用“查找和替换”功能计算内嵌图像的数量

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


使用“查找和替换”功能计算内嵌图像的数量

在此 查找和替换 Word中的功能可以帮助您快速轻松地计算内嵌图片的数量,请执行以下操作:

1。 点击 主页 > 查找 > 高级查找,看截图:

doc count images 1

2。 在 查找和替换 对话框下 查找 选项卡,键入 ^g查找内容 文本框,然后选择 主要文件 来自 寻找 下拉列表,看截图:

doc count images 2

3。 然后您可以看到此Word文档中的内嵌图像的数量已显示如下所示的屏幕截图:

doc count images 3


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

上述方法只能计算内嵌图像的数量,如果文档中有一些浮动形状,则不会计算它们。 以下VBA代码可以帮助您计算内嵌图像和浮动形状,请执行以下操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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

doc count images 4




推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.