Совет. Другие языки - Google-Translated. Вы можете посетить 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 для приложений окна.

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 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между 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.