VBA批量修改文档

        某天，夫人接到整理资料的任务，大致是将小学的资料改头换面，变成自己学校的文档，以应付上级检查，还要我从旁协助。我看到一大堆文档就头大，100多个文件，改到猴年马月去。为此和夫人抗议了几次，结果还是得乖乖的帮她改。

        任务其实很简单，就是把小学的内容改成符合幼儿园的字眼。原来也想下载个软件处理，结果要什么激活码。后来灵机一动，何不用VBA来解决问题，它可是可以直接操作WORD文档的。

另外：批量文件命名的，可以在网上下载，比如"batchrename".

代码贴在下面：

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
   
    With Selection.Find
        .Text = "学校"
        .Replacement.Text = "幼儿园"
        .Forward = True
        '.Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        myDoc.Save
        myDoc.Close
        Set myDoc = Nothing
      Next
    End If
End With
   Application.ScreenUpdating = True
   MsgBox "ok"

 

转载于:https://my.oschina.net/u/3522527/blog/919443