Note: The other languages of the website are Google-translated. Back to English

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


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

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (6)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
buenas noches amigo me ha servido mucho su información sinembargo me всплеск una duda Cree Que es posible incertar imagesen en word de la misma manera pero dentro de celdas incertadas?
Хайро Агирре
Этот комментарий был сведен к минимуму модератором на сайте
Какую строку кода вы бы изменили и как указать путь к файлу перед картинкой, иначе заголовок (имя файла) должен быть выше, а не ниже.
John
Этот комментарий был сведен к минимуму модератором на сайте
С выбором
.Текст = xФайл
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Конец с
эльмоги
Этот комментарий был сведен к минимуму модератором на сайте
Нужно добавить этот .MoveDown wdLine после .Text=xFile
Sylar
Этот комментарий был сведен к минимуму модератором на сайте
Вау, это здорово! Мне нужно было только имя файла, поэтому я удалил «xPath & «\» &» из строки .Text, и это сработало отлично. Спасибо за это!
Джеймс
Этот комментарий был сведен к минимуму модератором на сайте
Проблема возникает, когда имя добавляемого файла превышает 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
рис5...
JM
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места