excel能翻译中文吗
340
2024-02-05
如何计算Word文档中的图像数量？
如何计算Word文档中的图像数量？
如果您的Word文档中有多个图形同时包含嵌入式图像和浮动形状，则您要计算整个文档中这些图形的数量，如何才能快速而正确地获取图像数量？
使用查找和替换功能计算嵌入式图像的数量
使用VBA代码计算内嵌图像和浮动形状的数量
使用查找和替换功能计算嵌入式图像的数量查找和替换 Word中的功能可以帮助您仅快速，轻松地计算嵌入式图片的数量，请执行以下操作：
1。 点击 首页 > 找到最适合您的地方 > 高级查找，请参见屏幕截图：
2。 在 查找和替换 对话框中的 找到最适合您的地方 标签，输入 ^g 到 查找内容 文本框，然后选择 主要文件 来自 查找 下拉列表，请参见屏幕截图：
3。 然后，您可以看到此Word文档中的内联图像数已显示为以下屏幕截图：
使用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文档中有多少行内图像和浮动形状，请参见屏幕截图：
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/XLSX） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件 ...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字 ...
🧹 轻松清洁: 扫开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多删除工具，请前往我们的删除组
➕ 创意插入: 插页 千位分隔符 / 复选框 / 单选按钮 / 二维码/ 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 在我们的插入组中发现更多信息
🔍 精准选择: 精确定位特定页面 / 表 / 形状 / 标题段落 / 使用我们的选择组轻松导航
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具 ...
使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。
了解更多 免费下载 购买
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
