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应用程序 窗口。

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-Word超过100种高级功能,可节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (6)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
buenas noches amigo me ha servido mucho su 信息 sinembargo me spray una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
杰罗·阿吉雷
该评论由网站上的主持人最小化
您将更改哪一行代码以及如何在图片之前写入文件路径,即标题(文件名)在上方而不是下方。
约翰
该评论由网站上的主持人最小化
与选择
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

结束
埃尔莫希
该评论由网站上的主持人最小化
必须在 .Text=xFile 之后添加这个 .MoveDown wdLine
塞勒
该评论由网站上的主持人最小化
哇,这太棒了! 我只需要文件名,所以我从 .Text 行中删除了 "xPath & "\" &" 并且效果很好。 谢谢你!
JAMES
该评论由网站上的主持人最小化
当要添加的文件名超过 10 时会出现问题。

pic1
pic10
pic11
pic12
pic2
pic3
pic4
图5...
JM
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点