excel vba操作word替换文本以后保存的问题

abbr

工作中有很多WORD文档由于写错名称，需要批量替换，

1. 
   
2. Dim ArryFile(), nFile '全局变量 nfile初始值为0
   
3. Function searchFile(ByVal fd As Folder)
   
4.     Dim fl As File
   
5.     Dim subfd As Folder
   
6.     Dim i As Integer
   
7.     i = fd.Files.Count
   
8.     If i > 0 Then
   
9.         '--------------------------------------------------
   
10.         Set regex1 = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
    
11.         With regex1
    
12.             .Global = True    '设置全局可用
    
13.             .Pattern = "(doc)$"  '输入后缀名用|隔开"(xls|xlsx|docx|doc)$
    
14.         End With
    
15.         '--------------------------------------------------
    
16.         ReDim Preserve ArryFile(1 To nFile + i)
    
17.         For Each fl In fd.Files
    
18.             If regex1.test(fl.Name) = True Then
    
19.                 nFile = nFile + 1
    
20.                 ArryFile(nFile) = fl.Path
    
21.             End If
    
22.         Next
    
23.     End If
    
24.     If fd.SubFolders.Count = 0 Then Exit Function
    
25.     For Each subfd In fd.SubFolders
    
26.         searchFile subfd
    
27.     Next
    
28. End Function
    
29. 
    
30. Sub 批量修改文件名1()
    
31.     Dim fso As FileSystemObject
    
32.     Set fso = CreateObject("Scripting.FileSystemObject")
    
33.     nFile = 0
    
34.     searchFile fso.GetFolder("D:\AAA")
    
35.       Set wdapp = CreateObject("Word.Application")
    
36.     wdapp.Visible = False
    
37.       For Each e In ArryFile
    
38.       Debug.Print e
    
39.       wdapp.Documents.Open Filename:=e
    
40.       
    
41.       Debug.Print e & "opened"
    
42.       wdapp.Selection.Find.Execute FindText:="BBBB", ReplaceWith:="DDDD", Replace:=wdReplaceAll
    
43.         If wdapp.Documents.Saved = False Then wdapp.Documents.Save  '?
    
44.           Next
    
45. 
    
46.     wdapp.Quit
    
47.     Set wdapp = Nothing
    
48. End Sub
    

复制代码

问号这行，提示说对象不支持该属性或方法

请教各位大神，替换后，怎么实现自动保存呢？
如果没有问号那行，最后会提示一堆的保存，要一个个点击确认很烦。

约定的童话

附件提供下...

3190496160

直接这样不行吗？
wdapp.Documents.close true