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