多个word文档批量替换

lyssss · 发表于 2011-5-25 23:01

我有1000个左右的文档需要批量替换每个文档里的同一句话，比如把“春哥纯爷们”替换成“铁血史泰龙”，哪位高手能帮我写个VBA

doitbest · 发表于 2011-5-26 08:39

循环(打开查找替换关闭)

szqhb · 发表于 2011-5-26 23:23

Private Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100是工作时最多的文档数,可以修改
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear
.Filters.Add "所有WORD文件", "*.doc", 1
.AllowMultiSelect = True
i = 1
If .Show = -1 Then
      For Each stiSelectedItem In .SelectedItems
         GetStr(i) = stiSelectedItem
         i = i + 1
      Next
      i = i - 1
End If

Application.ScreenUpdating = False
For j = 1 To i Step 1
      Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
      Windows(GetStr(j)).Activate

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

Application.Run macroname:="NEWMACROS"
      ActiveDocument.Save
      ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "批量排版完毕!请查看！！", vbInformation
End Sub

doitbest · 发表于 2011-5-27 16:46

很有价值,正补我短,学习了!

gl_zhangt · 发表于 2011-7-5 20:58

3楼的朋友，您，好人一生平安！

westwindgg · 发表于 2014-11-8 19:02

szqhb 发表于 2011-5-26 23:23
Private Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100是 ...

为何我这里只能打个第一文件，然后替换第一个，其它的不管用呢？

eh蝴蝶效应 · 发表于 2014-11-12 10:56

我也遇到相同问题：为何我这里只能打个第一文件，然后替换第一个，其它的不管用呢？

excelwheep · 发表于 2014-11-12 17:05

If .Show = -1 Then
      For Each stiSelectedItem In .SelectedItems
         GetStr(i) = stiSelectedItem
         i = i + 1
      Next
      i = i - 1
End If

对不起，这句中“.Show”是什么意思啊

szqhb · 发表于 2014-12-29 11:04

westwindgg 发表于 2014-11-8 19:02
为何我这里只能打个第一文件，然后替换第一个，其它的不管用呢？

你要把代码放进宏“Normal”的“模块”中，而不是“Project”的“Word对象”“ThisDocument”中

szqhb · 发表于 2014-12-29 11:05

eh蝴蝶效应发表于 2014-11-12 10:56
我也遇到相同问题：为何我这里只能打个第一文件，然后替换第一个，其它的不管用呢？

你要把代码放进宏“Normal”的“模块”中，而不是“Project”的“Word对象”“ThisDocument”中

		自动登录	找回密码
密码			免费注册

[求助] 多个word文档批量替换