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 ·
2955 阅读 ·
0 评论