VBA批量修改WORD文档

最新推荐文章于 2024-04-07 09:36:56 发布

chengwen1129

最新推荐文章于 2024-04-07 09:36:56 发布

阅读量2.9k

点赞数

原文链接：https://my.oschina.net/u/3522527/blog/919454

版权

本文介绍如何利用VBA（Visual Basic for Applications）来批量修改Word文档，提高工作效率。通过VBA脚本，可以自动化执行一系列操作，如替换文本、格式调整等，对于处理大量文档非常实用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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