普通查找替换转变为支持通配符的查找替换

文人慕

看到一段代码，是指定文件夹下所有word文档的批量查找替换，尝试了一下，可是不支持有通配符的查找替换，哪位大神帮忙修改一下。

1. Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False  '关闭屏幕闪
   
3. Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
   
4. Set myAPP = New Word.Application
   
5. With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
   
6.     .Title = "选择目标文件夹"
   
7.     If .Show = -1 Then
   
8.         myPath = .SelectedItems(1) '读取选择的文件路径
   
9.     Else
   
10.         Exit Sub
    
11.     End If
    
12. End With
    
13. myPath = myPath & ""
    
14. myFile = Dir(myPath & "\*.docx")
    
15. txt = InputBox("需要替换的文字：")
    
16. Re_txt = InputBox("替换成：")
    
17. myAPP.Visible = True '是否显示打开文档
    
18. Do While myFile <> "" '文件不为空
    
19. Set myDoc = myAPP.Documents.Open(myPath & "" & myFile)
    
20. If myDoc.ProtectionType = wdNoProtection Then '是否受保护
    
21.     With myDoc.Content.Find
    
22.         .Text = txt
    
23.         .Replacement.Text = Re_txt
    
24.         .Forward = True
    
25.         .Wrap = 2
    
26.         .Format = False
    
27.         .MatchCase = False
    
28.         .MatchWholeWord = False
    
29.         .MatchByte = True
    
30.         .MatchWildcards = False
    
31.         .MatchSoundsLike = False
    
32.         .MatchAllWordForms = False
    
33.         .Execute Replace:=2
    
34.     End With
    
35. End If
    
36. myDoc.Save
    
37. myDoc.Close
    
38. myFile = Dir
    
39. Loop
    
40. myAPP.Quit '关掉临时进程
    
41. Application.ScreenUpdating = True
    
42. MsgBox ("全部替换完毕！")
    
43. End Sub

复制代码

zhoujieses

.MatchWildcards = ture