Как вставить несколько изображений с именем файла в документ Word?
В документе Word вы можете быстро вставить сразу несколько изображений с помощью функции «Вставить». Но иногда вам нужно вставить путь к файлу и имена в качестве заголовка при вставке изображений. Как бы вы справились с этой задачей в файле Word?
Вставьте несколько изображений с именем файла с помощью кода VBA
Вставьте несколько изображений с именем файла с помощью Kutools for Word
Вставьте несколько изображений с именем файла с помощью кода VBA
Следующий код VBA может помочь вам вставить путь к файлу и имя в качестве заголовка при вставке изображений, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:
Код VBA: вставьте несколько изображений с именем файла:
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 for Word
Если вы только что Kutools for Word, С его Фотографии вы можете быстро вставить несколько изображений с указанием пути и имени файла в документ Word сразу.
| Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. |
После установки Kutools for Word, пожалуйста, сделайте так:
1. Нажмите Кутулс > Фотографии, см. снимок экрана:
2. В выскочившем Вставить картинки диалоговом окне выполните следующие действия:
- (1.) Щелкните Добавить файлы or Add Folder кнопка для выбора изображений, которые вы хотите вставить;
- (2.) Затем проверьте Вставьте путь к файлу каждого изображения как заголовок опция в левой нижней части диалогового окна;
- (3.) Затем щелкните Вставить .
3. После вставки изображений вы увидите, что путь к файлу и имя каждого изображения также вставлены, см. Снимок экрана:
Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...
