提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

如果Word文檔中有多個圖形同時包含內嵌圖像和浮動圖形,那麼現在,您想要計算整個文檔中這些圖形的數量,如何快速準確地獲取圖像數量?

使用“查找和替換”功能計算內嵌圖像的數量

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


使用“查找和替換”功能計算內嵌圖像的數量

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

1。 點擊 主頁 > 發現 > 高級查找,看截圖:

doc count images 1

2。 在 查找和替換 對話框下 發現 選項卡,鍵入 ^g查找內容 文本框,然後選擇 主要文件 來自 尋找 下拉列表,看截圖:

doc count images 2

3。 然後您可以看到此Word文檔中的內嵌圖像的數量已顯示如下所示的屏幕截圖:

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

doc count images 4




推薦的Word生產力工具

Kutools For Word - 超過100 Word的高級功能,節省您的50%時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次性處理。
  • 一次將多個圖像跨文件夾插入Word文檔。
  • 將多個文件夾合併並組合成一個具有所需訂單的文件。
  • 根據標題,分節符或其他標準將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
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.