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

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

У документі Word ви можете швидко вставити кілька зображень одночасно за допомогою функції Вставити. Але, іноді, вам потрібно вставити шлях до файлу та імена як підпис під час вставки зображень. Як ви могли впоратися з цим завданням у файлі Word?

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

Вставте декілька зображень з іменем файлу за допомогою Kutools для Word


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

Наступний код VBA може допомогти вам вставити шлях до файлу та ім’я як підпис під час вставки зображень, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:

Код 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 для Word

Якщо у вас є Kutools для Word, З його зображень функцію, ви можете швидко вставити декілька зображень із шляхом до файлу та іменем у документ Word відразу.

Kutools для Word : з більш ніж 100 зручними надбудовами Word, які можна спробувати без обмежень протягом 60 днів. 

після установки Kutools для Word, будь ласка, зробіть так:

1. Натисніть Кутулс > зображень, див. скріншот:

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

2. В вискочив Вставити картинки діалоговому вікні, виконайте наведені нижче дії:

  • (1.) Клацніть Додати файли or Додати папку кнопка для вибору зображень, які потрібно вставити;
  • (2.) Потім перевірте Вставте шлях до файлу кожного зображення як підпис опція зліва внизу діалогового вікна;
  • (3.) А потім натисніть Insert кнопки.

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

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

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

Натисніть, щоб завантажити Kutools для Word та безкоштовну пробну версію зараз!


Рекомендовані засоби підвищення продуктивності слів

 

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

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (7)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
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?
Цей коментар був мінімізований модератором на сайті
Який рядок коду ви б змінили та як записати шлях до файлу перед зображенням, а також підпис (ім’я файлу) вище, а не нижче.
Цей коментар був мінімізований модератором на сайті
З виділенням
.Текст = xFile
.InlineShapes.AddPicture xPath & "\" і xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Кінець з
Цей коментар був мінімізований модератором на сайті
Потрібно додати цей .MoveDown wdLine після .Text=xFile
Цей коментар був мінімізований модератором на сайті
Вау, це чудово! Мені знадобилося лише ім'я файлу, тому я видалив "xPath & "\" &" з рядка .Text, і це працювало ідеально. Дякую за це!
Цей коментар був мінімізований модератором на сайті
Проблема виникає, коли ім’я файлу, яке потрібно додати, перевищує 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
фото 5...
Цей коментар був мінімізований модератором на сайті
змініть ім'я файлу на 01, 02, 03, і ​​він працюватиме
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL