提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Word文档中插入带有文件名的多张图片?

在Word文档中,您可以使用“插入”功能一次快速插入多张图片。 但是,有时,您需要在插入图片时插入文件路径和名称作为标题。 你怎么能在Word文件中处理这个任务?

使用VBA代码插入带有文件名的多张图片

使用Kutools for Word插入带有文件名的多张图片


在Word文档中插入带有文件名的多张图片:

您订购的 Kutools for Word,您可以使用文件路径和名称快速将多个图片从一个文件夹或多个文件夹插入到Word文档中。

doc插入文件名为6的图像

Kutools for Word:拥有超过100便利的Word插件,可以免费试用60时间不受限制。 点击下载并免费试用现在!


使用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. 点击 Kutools > 图片,看截图:

doc插入文件名为3的图像

2。 在弹出 插入图片 对话框,请执行以下操作:

  • (1。)单击 添加文件 or 添加文件夹 按钮,选择要插入的图像;
  • (2。)然后检查 插入每张图片的文件路径作为标题 对话框左下角的选项;
  • (3。)然后单击 插页 按钮。

doc插入文件名为4的图像

3。 插入图像后,您将看到每个图片的文件路径和名称也被插入,请参见屏幕截图:

doc插入文件名为5的图像

点击下载Kutools for Word并免费试用!



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jairo aguirre · 1 months ago
    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?