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.SelectedI.
原创
2021-11-01 09:42:59 ·
3013 阅读 ·
0 评论