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

АвторСяоянДата изменения2025-01-07

В документ Word можно быстро вставить сразу несколько изображений с помощью функции «Вставка». Однако иногда необходимо добавлять путь к файлу и имя файла в качестве подписей при вставке изображений — это особенно полезно при создании документации, отчётов или презентаций, где важно указывать источник изображения.

В этом руководстве мы подробно расскажем, как эффективно вставлять сразу несколько изображений в документ Word, автоматически добавляя к каждому из них подпись с путём к файлу и именем — это значительно упростит вам работу с изображениями и поможет держать всё в порядке.

Вставка нескольких изображений с именем файла с помощью кода VBA

Вставка нескольких изображений с именем файла с помощью Kutools для Word

Вставка нескольких изображений с именем файла с использованием кода VBA

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

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

Выберите Вставка>Модульи вставьте следующий код в открывшийся модуль:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

Нажмите F5, чтобы запустить код. Откроется окно Обзор, в котором можно выбрать папку с изображениями.

Выберите папку, из которой нужно вставить изображения

Нажмите ОК, и все изображения из выбранной папки будут вставлены в документ Word вместе с их Путь к файлу и именем в качестве подписей.

Вставка нескольких изображений с именем файла с помощью Kutools для Word

Использование Kutools для Word предоставляет эффективный способ вставки нескольких изображений вместе с путём к файлу и именами в документ Word. Эта функция экономит время и обеспечивает большую точность по сравнению с ручным добавлением информации о файлах. Благодаря своей функции Изображения вы легко справитесь с этой задачей.

После установки Kutools для Wordвыполните следующие действия:

Выберите Kutools>Несколько изображений.
В появившемся диалоговом окне Вставка изображенийвыполните следующие действия:
- Щёлкните Добавить файлы или Добавить папку, чтобы выбрать изображения для вставки.
- Установите флажок Вставить путь к файлу каждой картинки в качестве подписи в левом нижнем углу диалогового окна.
- Нажмите кнопку Вставить, чтобы вставить все изображения одновременно.
После вставки изображений к каждому из них автоматически добавляются путь к файлу и имя в виде подписи.

Хотите быстрее справляться с похожими задачами в Word? Попробуйте Kutools для Word и сделайте свою повседневную работу проще!

Скачать Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

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

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

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools