Перейти к основному содержанию

Как посчитать количество изображений в документе Word?

Если в вашем документе Word есть несколько изображений, которые содержат как встроенные изображения, так и плавающие фигуры, теперь вы хотите подсчитать количество этих изображений во всем документе, как вы могли бы быстро и правильно получить количество изображений?

Подсчитайте количество встроенных изображений с помощью функции поиска и замены

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


Подсчитайте количество встроенных изображений с помощью функции поиска и замены

Ассоциация Найти и заменить Функция в Word может помочь вам быстро и легко подсчитать количество встроенных изображений, пожалуйста, сделайте следующее:

1. Нажмите Главная > Найдите > Расширенный поиск, см. снимок экрана:

количество документов изображений 1

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

количество документов изображений 2

3. И затем вы можете увидеть, что количество встроенных изображений в этом документе Word отображается, как показано на следующем снимке экрана:

количество документов изображений 3


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

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

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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


Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀
 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations