如何批量将文件夹内的图片导入word文档？

xiawj

如何批量将文件夹内的图片导入word文档？              如：A文件夹内有多张jpg文件和一个word文件，如何批量操作将该文件夹内的所有jpg文件插入word文档

hfxiang

1. 
   
2. Sub 批量插入图片()
   
3.     Dim myfile As FileDialog
   
4.     Set myfile = Application.FileDialog(msoFileDialogFilePicker)
   
5.     Application.ScreenUpdating = False
   
6.     With myfile
   
7.         .InitialFileName = "D:\PicDir"
   
8.         If .Show = -1 Then
   
9.             For Each Fn In .SelectedItems
   
10.                 Selection.Text = Basename(Fn)
    
11.                 Selection.EndKey
    
12.                 If Selection.Start = ActiveDocument.Content.End - 1 Then
    
13.                     Selection.TypeParagraph
    
14.                 Else
    
15.                     Selection.MoveDown
    
16.                 End If
    
17.                 Set mypic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True)
    
18.                 If Selection.Start = ActiveDocument.Content.End - 1 Then
    
19.                     Selection.TypeParagraph
    
20.                     Selection.TypeParagraph
    
21.                 Else
    
22.                     Selection.MoveDown
    
23.                 End If
    
24.             Next Fn
    
25.         Else
    
26.         End If
    
27.     End With
    
28.     Set myfile = Nothing
    
29.     Application.ScreenUpdating = True
    
30. End Sub
    
31. Function Basename(FullPath)
    
32.     Dim x, y
    
33.     Dim tmpstring
    
34.     tmpstring = FullPath
    
35.     x = Len(FullPath)
    
36.     For y = x To 1 Step -1
    
37.         If Mid(FullPath, y, 1) = "" Or _
    
38.             Mid(FullPath, y, 1) = ":" Or _
    
39.             Mid(FullPath, y, 1) = "/" Then
    
40.             tmpstring = Mid(FullPath, y + 1)
    
41.             Exit For
    
42.         End If
    
43.     Next
    
44.     Basename = Left(tmpstring, Len(tmpstring) - 4)
    
45. End Function
    

复制代码

xiawj

回复 2# hfxiang 怎么用？

Batcher

回复 1# xiawj


这个方法可以吗
https://jingyan.baidu.com/article/6525d4b1603762ed7d2e94ea.html

hfxiang

回复 3# xiawj


    先打开word，之后Alt+F11->{插入->模块->[编辑：Ctrl+C & Ctrl+V]->Ctrl+s}->Alt+F8