跳到主要內容

如何在Word文檔中插入多個帶有文件名的圖片？

在Word文檔中，可以使用“插入”功能一次快速插入多張圖片。 但是，有時在插入圖片時需要插入文件路徑和名稱作為標題。 您如何在Word文件中處理此任務？

使用VBA代碼插入多個帶文件名的圖片

使用Kutools for Word插入多張帶文件名的圖片

使用VBA代碼插入多個帶文件名的圖片

下面的VBA代碼可以幫助您在插入圖像時插入文件路徑和名稱作為標題，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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天內免費試用. 
前往下載
60天免費試用購買
貝寶/ MyCommerce

安裝後 Kutools for Word，請這樣做：

1. 點擊 庫工具 > 圖片，請參見屏幕截圖：

doc插入文件名為3的圖像

2。 在彈出 插入圖片 對話框，請執行以下操作：

  • （1.）點擊 添加文件 or 添加文件夾 按鈕選擇要插入的圖像；
  • （2.）然後檢查 插入每張圖片的文件路徑作為標題 對話框左下方的選項；
  • （3.）然後單擊 插入 按鈕。

doc插入文件名為4的圖像

3。 插入圖像後，您將看到每張圖片的文件路徑和名稱也被插入，請參見屏幕截圖：

doc插入文件名為5的圖像

點擊下載Kutools for Word並立即免費試用！

最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點！

🤖 Kutools 人工智慧助手：用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔，全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇（PDF/TXT/DOC/HTML...）  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

✏ 內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具，請前往我們的 刪除組...

➕ 創意插入： 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇：精確定位 特定頁面  /  表  /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

⭐ 星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎？ Kutools for Word 提供了 60天免費試用，沒有任何限制！ 🚀
 
Comments (11)
No ratings yet. Be the first to rate!
PATAN
PATAN
This comment was minimized by the moderator on the site
VBA CODE IS VERY USEFULLY MY DATA VALIDATE IMAGES SHARING.
Reply
0
0
Rachel Jackson
Rachel Jackson
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?
Reply
0
0
Rizza
Rizza
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
Reply
0
0
skyyang
skyyang     Rizza
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!
Reply
Report
0
0
JM
JM
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...
Reply
0
0
_adelie01
_adelie01     JM
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
Reply
0
0
James
James
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!
Reply
0
0
John
John
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.
Reply
0
0
elmohy
elmohy     John
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
Reply
0
0
Sylar
Sylar     elmohy
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
Reply
0
0
jairo aguirre
jairo aguirre
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?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations