Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как вставить несколько изображений с именем файла в документ Word?

В документе Word вы можете быстро вставить несколько снимков одновременно с помощью функции Insert. Но иногда вам нужно вставить путь к файлу и имена в качестве заголовка при вставке изображений. Как вы можете справиться с этой задачей в Word-файле?

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

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


Вставка нескольких изображений с именем файла в документе Word:

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

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

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


Вставьте несколько изображений с именем файла с помощью кода 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. щелчок Kutools > Фотографии, см. снимок экрана:

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

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

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

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

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

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

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



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

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jairo aguirre · 20 days ago
    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?