word文档批量插入图片及其文件名

最新推荐文章于 2024-10-15 04:19:06 发布

原创

最新推荐文章于 2024-10-15 04:19:06 发布 · 3.9k 阅读

14 ·

CC 4.0 BY-SA版权

文章标签：

#其他

本文介绍了一种使用VBA宏在Word中批量插入图片并自动创建带有图片路径的表格的方法。通过VBA宏代码，可以实现从指定文件夹读取图片文件，并将图片按特定格式插入到Word文档中，同时在文档中生成包含图片信息的表格。

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)