跳到主要內容

如何計算Word文檔中的圖像數量?

作者:小陽 最後修改時間:2024-07-17

計算 Word 文件中的圖像數量可用於多種目的,例如品質控制、遵守指南或僅出於組織原因。手動計算冗長文件中的圖像可能非常乏味且容易出錯。幸運的是,有一些有效的方法可以快速且準確地統計 Word 文件中的圖片數量。

在本教程中,我們將引導您完成輕鬆計算圖像數量的步驟,以幫助您更有效地管理文件。

使用查找和替換功能計算嵌入式圖像的數量

使用VBA代碼計算內嵌圖像和浮動形狀的數量


Office 標籤:為 Word、Excel、PowerPoint 帶來選項卡式介面...
ot字中間廣告100
立即增強您的工作流程。      了解有關 Office 選項卡的更多信息       免費下載

使用查找和替換功能計算嵌入式圖像的數量

查找和替換 Word中的功能可以幫助您僅快速,輕鬆地計算嵌入式圖片的數量,請執行以下操作:

1。 點擊 首頁 > 發現 > 高級查找,請參見屏幕截圖:

功能區上的進階查找

2。 在 查找和替換 對話框中的 發現 標籤,輸入 ^g查找內容 文本框,然後選擇 主要文件 來自 尋找 下拉列表,請參見屏幕截圖:

尋找並取代對話框 1

3。 然後,您可以看到此Word文檔中的內聯圖像數已顯示為以下屏幕截圖:

尋找並取代對話框 2


使用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文檔中有多少行內圖像和浮動形狀,請參見屏幕截圖:

彈出成功通知


最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  獲得快速解答,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往 刪除群組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入群組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 導航到任何位置  /  自動插入重複文字  /  在文檔視窗之間切換  /  11 轉換工具...

???? 想嘗試這些功能嗎?立即下載 Kutools for Word! 🚀
 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations