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

作者Xiaoyang修改日期2025-11-05

處理 Word 文件時，精確掌握其中包含的圖片數量，對於確保符合提交標準、監控報告內容，以及追蹤文件結構以利後續編輯與出版至關重要。在冗長或複雜的文件中，手動逐一計算圖片不僅耗時費力，還容易出錯——尤其是頁首、頁尾或浮動物件中的圖片，往往容易被忽略。因此，熟練運用高效計算圖片的方法（無論是內嵌、浮動，還是跨多份文件），將大幅節省時間並提升文件準確性。

本教學將介紹在 Word 中計算各類圖片物件的實用技巧，涵蓋內嵌圖片與浮動圖形。透過這些方法，您可迅速取得單一文件乃至多份文件的圖片數量，大幅提升文件管理與品質控管的效率。

使用查找和替換功能計算內嵌圖片數量

使用 Kutools for Word 在多份文件中計算內嵌圖片數量

使用 VBA 程式碼計算內嵌圖片與浮動圖形的總數

使用查找和替換功能計算內嵌圖片數量

Word 中的查找和替換功能可快速統計內嵌圖片，是您在單一文件中立即取得圖片數量的最實用選擇！內嵌圖片是指行為如同文字字元、並隨文字流動的圖片。請注意，此方法不會計算浮動圖形，例如文字框、繪製的形狀，或格式設為「文字前方」的圖片。若您僅需快速計算一般插入圖片的數量（特別適用於合規性檢查或版面審查），此方法絕對不容錯過！

按一下首頁＞尋找＞ 進階尋找。
在查找和替換對話方塊中，切換至尋找索引標籤。將 ^g（這是代表內嵌圖片的圖形特殊代碼）輸入至尋找目標方塊中。接著，若要搜尋文件的主要內容，請從主文檔下拉式清單中選取尋找範圍。
Word 會立即回報符合條件的內嵌圖片總數，並在對話方塊底部顯示計數結果；其中高亮顯示的數字，代表文件主體所包含的內嵌圖片數量。

提示與注意事項：此方法僅計算內嵌圖片；錨定至段落的浮動圖片或以形狀插入的物件將不會被計入。若需更全面的統計，請務必採用下方的 VBA 解決方案。此外，請確認搜尋範圍設定正確（限於主文檔，不含頁首、頁尾等區域），否則這些區域中的圖片將無法納入計算。

Office Tab

為 Word、Excel、PowerPoint 等應用程式帶來如網頁瀏覽器般流暢的分頁式瀏覽體驗，讓您在單一視窗中輕鬆切換！

免費下載深入了解

使用 Kutools for Word 在多份文件中計算內嵌圖片數量

當您需要同時評估多份文件的圖片內容時（例如彙整報告、批次編輯，或確保多份文件符合提交要求），Kutools for Word 是您的高效解決方案！透過其批量替換功能，可自動搜尋並統計一組已選取文件中的內嵌圖片（使用 ^g 代碼）。當手動檢閱文件過於耗時又重複時，此方法尤其實用，助您大幅提升效率！

在 Kutools 索引標籤中，點選批量替換，立即開啟專用對話方塊！
在批量查找與替換對話方塊中，依下列方式設定搜尋條件：
1. 點擊添加行，即可新增搜尋規則。
2. 在新列的尋找欄位中，輸入 ^g，此代碼對應 Word 中所有內嵌圖片的佔位符。
3. 點擊新增，並選擇添加文件或目錄，即可擷取您要分析的文件。兩種選項皆可依需求一次選取單一或多個 Word 文件！
4. 點擊尋找，立即啟動批次計數程序！
系統將自動切換至對話方塊中的預覽結果索引標籤，在此您可查看每個已選取文件的內嵌圖片詳細計數，輕鬆辨識符合或未達圖片相關要求的檔案。檢閱完畢後，點擊關閉即可退出。

此批次方法讓您無需逐一開啟每份文件，即可快速掌握多份文件中的圖片數量，是編輯人員、研究者或任何需要確保文件集格式一致性的使用者的理想利器。

想在 Word 中更快速完成重複性任務嗎？試試 Kutools for Word，讓您的日常操作更輕鬆高效！

下載深入了解

使用 VBA 程式碼計算內嵌圖片與浮動圖形的總數

與前兩種僅限於內嵌圖片的方法不同，使用 VBA（Visual Basic for Applications）可同時計算主文檔主體中的內嵌圖片與浮動圖形（包括以形狀插入的圖片、浮水印等）數量。若您的文件包含獨立於文字流動的浮動圖片或其他物件，此方法能提供更全面且精準的計數結果。此外，您還可根據特定需求，靈活自訂此計數方式。

選取您要計算圖片數量的文件，或將游標置於文件視窗內。按下 Alt+F11，即可開啟 Microsoft Visual Basic for Applications 編輯器視窗！

在 VBA 編輯器中，按一下插入> 模組以建立新模組。將下方的 VBA 程式碼複製並貼上至此模組中。

VBA 程式碼：計算作用中文件的內嵌圖片與浮動圖形數量

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim xPrompt As String
    On Error Resume Next
    xTitleId = "KutoolsforWord"
    With Application.ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then
                tbxs = tbxs + 1
            End If
        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, xTitleId
    Set sh = Nothing
End Sub