Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
x
註冊  \/ 
x

or

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

如果您的Word文檔中有多個圖形同時包含嵌入式圖像和浮動形狀,則您要計算整個文檔中這些圖形的數量,如何才能快速而正確地獲取圖像數量?

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

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


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

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

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

文檔計數圖像1

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

文檔計數圖像2

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

文檔計數圖像3


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

文檔計數圖像4



推薦的Word生產力工具

 

Kutools For Word - 100 多個 Word 高級功能,節省 50% 的時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.