Перейти к основному содержанию

Как вставить несколько изображений с именем файла в документ 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 нажмите клавишу для запуска этого кода, отобразится окно обзора, выберите папку, содержащую изображения, которые вы хотите вставить, см. снимок экрана:

doc вставить изображения с именем файла 1

4. Затем нажмите OK все изображения в выбранной папке были вставлены в документ Word, а путь к файлу и имя вставлены как заголовок, см. снимок экрана:

doc вставить изображения с именем файла 2


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

Если вы только что Kutools for Word, С его Фотографии вы можете быстро вставить несколько изображений с указанием пути и имени файла в документ Word сразу.

Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. 

После установки Kutools for Word, пожалуйста, сделайте так:

1. Нажмите Кутулс > Фотографии, см. снимок экрана:

doc вставить изображения с именем файла 3

2. В выскочившем Вставить картинки диалоговом окне выполните следующие действия:

  • (1.) Щелкните Добавить файлы or Add Folder кнопка для выбора изображений, которые вы хотите вставить;
  • (2.) Затем проверьте Вставьте путь к файлу каждого изображения как заголовок опция в левой нижней части диалогового окна;
  • (3.) Затем щелкните Вставить .

doc вставить изображения с именем файла 4

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

doc вставить изображения с именем файла 5

Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

Погрузитесь в выделенные функции ниже или нажмите здесь, чтобы изучить всю мощь Kutools for Word.

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

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

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

Креативные вставки: Вставить Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  /  Узнайте больше в нашей группе «Вставки»

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

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования ...

Преобразуйте свои задачи Word с помощью Kutools. 👉 Загрузите 30-дневную пробную версию прямо сейчас 🚀.

 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
VBA CODE IS VERY USEFULLY MY DATA VALIDATE IMAGES SHARING.
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    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
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
This comment was minimized by the moderator on the site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations