京寵展信息指南
527
2025-04-01
如何計算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小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
