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

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

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

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

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

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

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

1. Удерживайте Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль, и вставьте следующий код в открытый модуль:

   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
   

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



4. Нажмите OK, и все изображения из выбранной папки будут вставлены в документ Word с путем к файлу и именем, включенными как подписи.

   

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

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

После установки Kutools для Word следуйте этим шагам:

1. Нажмите Kutools > Много изображений.

   

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

     

3. После вставки изображений путь к файлу и имя каждого изображения будут добавлены как подпись.

   

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

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

🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

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

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

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

➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...

⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...

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

👉 Хотите попробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀

Бесплатная загрузка     Купить     Подробнее о Kutools для Word

 

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

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

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

Бесплатная загрузка Купить Подробнее о Kutools