Как вставить несколько изображений с именем файла в документ 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, пожалуйста, сделайте так:

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

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

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

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

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

---

Рекомендуемые инструменты для повышения производительности Word

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

• Сложные и повторяющиеся операции можно производить разово за секунды.
• Вставляйте сразу несколько изображений из папок в документ Word.
• Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
• Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
• Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Узнать больше Загрузить сейчас покупка