Как да вмъкна няколко снимки с име на файл в документ на Word?
В документ на Word можете бързо да вмъкнете няколко картини наведнъж, като използвате функцията Вмъкване. Но понякога трябва да вмъкнете пътя на файла и имената като надпис, когато вмъквате снимките. Как бихте могли да се справите с тази задача в Word файл?
Вмъкнете няколко снимки с име на файл, като използвате VBA код
Вмъкнете няколко снимки с име на файл с помощта на Kutools за 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 за Word
Ако имате Kutools за Word, Със своята Снимки функция, можете бързо да вмъкнете няколко снимки с път и име на файла в документа на Word веднага.
Kutools за Word : с повече от 100 удобни добавки за Word, безплатни за изпробване без ограничение за 60 дни. |
След инсталиране Kutools за Word, моля, направете следното:
1. Кликнете Kutools > Снимки, вижте екранна снимка:
2. В изскочилото Вмъкване на снимки диалогов прозорец, моля, направете следните операции:
- (1.) Щракнете Добавяне на файлове or Добавяне на папка бутон за избор на изображенията, които искате да вмъкнете;
- (2.) След това проверете Вмъкнете файловия път на всяка снимка като надпис опция в долната лява част на диалоговия прозорец;
- (3.) И след това щракнете Поставете бутон.
3. След като вмъкнете изображенията, ще видите пътя на файла на всяка картина и името също е вмъкнато, вижте екранната снимка:
Щракнете, за да изтеглите Kutools за Word и безплатна пробна версия сега!
Най-добрите инструменти за продуктивност в офиса
Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...