VBA批量处理文件夹内的所有文档

曉鬆

      请求大神帮忙，本人因工作需要，一个文件夹内有大量的Word文档，每个文档中需要按照已有的图片名称插入另一个文件夹中的图片，目前从网上引用了一位大神的VBA代码，可以实现需求，但是需要打开每个文档去执行，如此效率有点低，我想在空白的工作表或是文档中放入代码对文件夹内的Word文档进行批量处理，不用一个个打开去执行，望大神帮我规划下，不胜感激！（附上单个文档处理的VBA代码

1. Sub Word根据图片名批量插入图片()
   
2.    
   
3.     Dim myDialog As FileDialog, a As String, n As Integer
   
4.    
   
5.     Application.ScreenUpdating = False
   
6.    
   
7.     Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
   
8.         
   
9.         With myDialog
   
10.             
    
11.             .Title = "请指定目标文件夹位置"
    
12.             If .Show <> -1 Then Exit Sub
    
13.             ChDrive .InitialFileName
    
14.             ChDir .InitialFileName
    
15.         
    
16.         End With
    
17.    
    
18.     a = Dir("*.jpg")
    
19.    
    
20.     Do While a <> ""
    
21.         
    
22.         With ActiveDocument.Content.Find
    
23.             .ClearFormatting
    
24.             .Text = a
    
25.             If .Execute Then
    
26.             n = n + 1
    
27.             .Parent.Select
    
28.             Selection.InlineShapes.AddPicture FileName:=myDialog.InitialFileName & a
    
29.             End If
    
30.         End With
    
31.    
    
32.     a = Dir
    
33.    
    
34.     Loop
    
35.    
    
36.     MsgBox " 提示：处理完毕，本次插入图片" & n & "张"
    
37. 
    
38. End Sub
    

复制代码

）

3190496160

代码写到excel中，在excel中运行代码，代码帮你打开文件，插入图片，这类帖子回的多了，或者自己搜搜看看，或者上传附件和相应的图片