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 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天內免費試用. 

安裝後 Kutools for Word,請這樣做:

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

doc插入文件名為3的圖像

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

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

doc插入文件名為4的圖像

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

doc插入文件名為5的圖像

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


推薦的Word生產力工具

 

Kutools For Word - 超過 100 Word 的高級功能, 節省您的 50% 時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
按評論排序
留言 (7)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
buenas noches amigo me ha servido mucho su infoación sinembargo me spray una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
網站主持人對此評論進行了最小化
您將更改哪一行代碼以及如何在圖片之前寫入文件路徑,即標題(文件名)在上方而不是下方。
網站主持人對此評論進行了最小化
有選擇
.Text = x文件
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

結束
網站主持人對此評論進行了最小化
必須在 .Text=xFile 之後添加這個 .MoveDown wdLine
網站主持人對此評論進行了最小化
哇,這太棒了! 我只需要文件名,所以我從 .Text 行中刪除了 "xPath & "\" &" 並且效果很好。 謝謝你!
網站主持人對此評論進行了最小化
當要添加的文件名超過 10 時會出現問題。

pic1
pic10
pic11
pic12
pic2
pic3
pic4
圖5...
網站主持人對此評論進行了最小化
將文件名更改為 01、02、03 即可
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護