批量导入图片到word并添加文件名
摘要:
Sub InsertPic() Dim myfile As FileDialog Set myfile = Application.FileDialog(msoFileDialogFilePicker) With myfile .InitialFileName = "F:\" If .Show = -1 Then F... 阅读全文
posted @ 2016-05-21 17:01 aozima 阅读(7219) 评论(2) 推荐(2) 编辑