Dim fs, i, arr(1 To 10000)
Set fs = Application.FileSearch
With fs
.LookIn = "d:\aa\anquan"
.FileName = "*.doc"
.SearchSubFolders = True
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
'Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Set myDoc = Documents.Open(FileName:=.FoundFiles(i))
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'MsgBox .FoundFiles(i)
With Selection.Find
.Text = "文国章"
.Replacement.Text = "李乐群"
.Forward = True
'.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord
VBA批量修改WORD文档
最新推荐文章于 2024-04-07 09:36:56 发布
本文介绍如何利用VBA(Visual Basic for Applications)来批量修改Word文档,提高工作效率。通过VBA脚本,可以自动化执行一系列操作,如替换文本、格式调整等,对于处理大量文档非常实用。
摘要由CSDN通过智能技术生成