遍历文件夹word中替换内容

风之惑

编写了以下代码，想对指定文件夹下的多个word进行特定文本的批量替换，但不起作用，求助大佬指出代码错误之处？

1. Sub test()
   
2.     Dim glkFileDialog As FileDialog '定义选择文件对话框
   
3.     Dim glkSelectedItem As Variant  '定义变量
   
4.     Dim glkDoc As Document '定义文档
   
5.     Set glkFileDialog = Application.FileDialog(msoFileDialogFilePicker) '设置变量
   
6.     With glkFileDialog '设置对话框属性
   
7.         .Filters.Clear '清除过滤器
   
8.         .Filters.Add "所有Word文件", "*.Docx", 1 '添加过滤条件
   
9.         .AllowMultiSelect = True '允许多选
   
10.         If .Show = -1 Then '如果按 【打开】
    
11.             Application.ScreenUpdating = False '关闭屏幕更新
    
12.             For Each glkSelectedItem In .SelectedItems 'For  - Next循环
    
13.                 Set glkDoc = Documents.Open(FileName:=glkSelectedItem, Visible:=False)         '后台打开所选文档
    
14.                 Selection.Find.ClearFormatting
    
15.                 Selection.Find.Replacement.ClearFormatting
    
16.                 With Selection.Find
    
17.                     .Text = "测试"
    
18.                     .Replacement.Text = "替换"
    
19.                     .Forward = True
    
20.                     .Wrap = wdFindContinue
    
21.                     .Format = False
    
22.                     .MatchCase = False
    
23.                     .MatchWholeWord = False
    
24.                     .MatchByte = True
    
25.                     .MatchWildcards = False
    
26.                     .MatchSoundsLike = False
    
27.                     .MatchAllWordForms = False
    
28.                 End With
    
29.                 Selection.Find.Execute Replace:=wdReplaceAll
    
30.                 glkDoc.Save
    
31.                 glkDoc.Close
    
32.                
    
33.             Next
    
34.             Application.ScreenUpdating = True '启用屏幕更新
    
35.             MsgBox "所选文档替换完毕！", vbInformation
    
36.         Else '如果按 【取消】
    
37.             MsgBox "您取消了本次操作！", vbInformation
    
38.         End If
    
39.     End With
    
40. End Sub

复制代码

zmj9151

.find.parent.select

QQ214189912

Selection修改为glkDoc.Content

樊sir

楼主实现需求了么？

song_496

，，，，，没实现啊