Як підрахувати кількість зображень у документі Word?

Якщо у вашому документі Word є кілька графічних зображень, що містять як вбудовані зображення, так і плаваючі фігури, тепер ви хочете порахувати кількість цих графічних зображень у цілому документі, як ви могли швидко та правильно отримати кількість зображень?

Підрахуйте кількість вбудованих зображень за допомогою функції Знайти та замінити

Підрахуйте кількість як вбудованих зображень, так і плаваючих фігур за допомогою коду VBA

Підрахуйте кількість вбудованих зображень за допомогою функції Знайти та замінити

Команда Знайти і замінити функція у програмі Word може допомогти вам швидко та легко підрахувати кількість вбудованих зображень, будь ласка, виконайте такі дії:

1. Клацання Головна > знайти > Розширений пошук, див. скріншот:

зображення підрахунку документів 1

2, в Знайти і замінити у діалоговому вікні під знайти на вкладці введіть ^g в Знайти те, що текстове поле, а потім виберіть Основний документ від Знайти в випадаючий список, див. знімок екрана:

зображення підрахунку документів 2

3. І тоді ви можете побачити, що кількість вбудованих зображень у цьому документі Word відображається, як показано на наступному знімку екрана:

зображення підрахунку документів 3

Підрахуйте кількість як вбудованих зображень, так і плаваючих фігур за допомогою коду VBA

Вищевказаний метод може підрахувати лише кількість вбудованих зображень, якщо в документі є деякі плаваючі фігури, вони не враховуватимуться. Наступний код VBA може допомогти вам підрахувати як вбудовані зображення, так і плаваючі фігури, будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Потім натисніть кнопку Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:

Код 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