Làm thế nào để đếm số lượng hình ảnh trong tài liệu Word?

Nếu có nhiều đồ họa trong tài liệu Word của bạn chứa cả hình in dòng và hình nổi, bây giờ, bạn muốn đếm số lượng đồ họa này trong toàn bộ tài liệu, làm cách nào để có được số lượng hình ảnh một cách nhanh chóng và chính xác?

Đếm số lượng hình ảnh nội tuyến với tính năng Tìm và Thay thế

Đếm số lượng cả hình ảnh nội tuyến và hình nổi bằng mã VBA

---

Đếm số lượng hình ảnh nội tuyến với tính năng Tìm và Thay thế

Mô hình Tìm và Thay thế Tính năng trong Word có thể giúp bạn đếm số lượng hình ảnh nội tuyến một cách nhanh chóng và dễ dàng, vui lòng thực hiện như sau:

1. Nhấp chuột Trang chủ > Tìm kiếm > Tìm kiếm nâng cao, xem ảnh chụp màn hình:

2. Trong Tìm và Thay thế hộp thoại, bên dưới Tìm kiếm tab, nhập ^g vào Tìm hộp văn bản, sau đó chọn Tài liệu chính từ Tìm trong danh sách thả xuống, xem ảnh chụp màn hình:

3. Và sau đó bạn có thể thấy số lượng hình ảnh nội tuyến trong tài liệu Word này đã được hiển thị như sau:

---

Đếm số lượng cả hình ảnh nội tuyến và hình nổi bằng mã VBA

Phương pháp trên chỉ có thể đếm số lượng hình ảnh nội tuyến, nếu có một số hình dạng nổi trong tài liệu, chúng sẽ không được tính. Mã VBA sau có thể giúp bạn đếm cả hình ảnh nội tuyến và hình dạng nổi, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Sau đó nhấn vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:

Mã VBA: Đếm số lượng của cả hình ảnh nội tuyến và hình dạng nổi:

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. Sau khi dán mã, sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để cho bạn biết có bao nhiêu hình ảnh nội tuyến và hình dạng nổi trong tài liệu Word này, hãy xem ảnh chụp màn hình:

---