如何在 Word 文件中插入多張圖片並自動附上檔名？

作者曉陽修改日期2025-01-07

在 Word 文件中，您可以透過「插入」功能快速一次加入多張圖片。但有時您可能希望在插入圖片的同時，自動將檔案路徑與檔名作為說明文字一併加入——這在撰寫文件、報告或簡報時特別實用，尤其是需要標註圖片來源的情況。

本教學將逐步引導您，高效地在 Word 文件中插入多張圖片，並同步加入檔案路徑與檔名作為說明文字，助您更妥善管理圖片。

使用 VBA 程式碼插入多張附檔名的圖片

使用 Kutools for Word 插入多張附檔名的圖片

使用 VBA 程式碼插入多張附檔名的圖片

下列 VBA 程式碼可協助您一次插入多張圖片，並自動將其檔案路徑與檔名設為說明文字。請依下列步驟操作：

按住 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 視窗！

按一下插入>模組，並將下列程式碼貼到開啟的模組中：

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

按下 F5 以執行程式碼，隨即會彈出一個瀏覽視窗，讓您選取包含圖片的資料夾。

選取要從中插入圖片的資料夾

點擊確定，即可將所選資料夾中的所有圖片插入至 Word 文件中，並自動附上檔案路徑與檔名作為說明文字。

使用 Kutools for Word 插入多張附檔名的圖片

使用 Kutools for Word，能高效將多張圖片及其檔案路徑與檔名一鍵插入 Word 文件中，省時又比手動輸入更精準！透過其圖片功能，輕鬆完成此任務，提升工作效率！

安裝 Kutools for Word 後，請依照下列步驟操作：

點擊 Kutools＞ 多圖插入。
在彈出的插入圖片對話方塊中，執行下列操作：
- 點擊添加文件或目錄，立即選取您要插入的圖片！
- 勾選對話方塊左下角的使用文件的完整路徑作為題注插入選項。
- 點擊插入按鈕，即可一次將所有圖片插入！
插入圖片後，每張圖片的檔案路徑與檔名將自動加入為說明文字。