批量按顺序插入图片

ly8421

这是我从论坛上面找的源代码，非常棒，现在的问题是：1、怎么把每页开头的路径文件名删除掉？2、要求一页一张图片 批量按顺序插入图片.rar (374.98 KB, 下载次数: 283)

2021-1-9 08:25 上传

点击文件名下载附件

413191246se

* 楼主，我看你提供的模板有个人信息，不如在你本机新建文档，插入图片为好，请试用下面的宏：

1. Sub InsertPicPerPage()
   
2.     Dim SelectFolder$, picName$, i&
   
3.     Documents.Add
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         If .Show Then SelectFolder = .SelectedItems(1) & "" Else End
   
6.     End With
   
7.     With Selection
   
8.         Do
   
9.             If i = 0 Then
   
10.                 picName = Dir(SelectFolder & "*.jpg")
    
11.             Else
    
12.                 picName = Dir
    
13.             End If
    
14.             i = i + 1
    
15.             If picName = "" Then Exit Do
    
16.             .InlineShapes.AddPicture FileName:=SelectFolder & picName
    
17.             .EndKey Unit:=wdStory
    
18.             .TypeParagraph
    
19.         Loop
    
20.         .Delete
    
21.     End With
    
22. End Sub

复制代码

ly8421

好的，谢谢

ly8421

413191246se 发表于 2021-1-9 12:53
* 楼主，我看你提供的模板有个人信息，不如在你本机新建文档，插入图片为好，请试用下面的宏：

试了一下，行不通

413191246se

楼主，怎么行不通？请说一说。

ly8421

413191246se 发表于 2021-1-9 16:49
楼主，怎么行不通？请说一说。

提示文件夹，插入图片

413191246se

楼主，图片须自备且须自行打开图片文件夹，再应用宏。

jwjnh001

413191246se 发表于 2021-1-9 12:53
* 楼主，我看你提供的模板有个人信息，不如在你本机新建文档，插入图片为好，请试用下面的宏：

无法插入图片