Skip to main content

如何計算 Word 文件中的圖片數量?

Author: Xiaoyang Last Modified: 2025-05-12

計算 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內建人工智慧 ?,提供超過 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 工具