Note: The other languages of the website are Google-translated. Back to English

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:

doc số hình ảnh 1

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:

doc số hình ảnh 2

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:

doc số hình ảnh 3


Đế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:

doc số hình ảnh 4



Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL