如何将图片批量导入word中并附加文件名

Sub InsertPic()    Dim myfile As FileDialog    Set myfile = Application.FileDialog(msoFileDialogFi