如何用VBA实现WORD批量替换？

操作步骤。

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。

第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。

第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = ＂选择目标文件夹＂If .Show = -1 ThenmyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithmyPas = InputBox（＂请输入打开密码：＂）With Application.FileSearch.LookIn = myPath.FileType = msoFileTypeWordDocumentsIf .Execute > 0 ThenFor i = 1 To .FoundFiles.CountSet myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = ＂大家好＂.Replacement.Text = ＂你好＂.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllmyDoc.SavemyDoc.CloseSet myDoc = NothingNextEnd IfEnd WithApplication.ScreenUpdating = TrueEnd Sub第五，保存上面代码，退出VB编辑模式，返回Word文档界面。

第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。

第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。

就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。

关于Word VBA查找替换（含通配符）的问题

&lt； 标识单词开始，也就是说这里要匹配一个整词，前面要么是空格，要么是标点符号等。

(Subject) 匹配“Subject”这个单词。

用圆括号括起来的是让它成组，同时本来也可以在替换内容中通过“\1”来指代它。

但是我看粘贴出来的代码里面替换内容为空，所以我觉得这个圆括号可有可无。

\\ 匹配“\”这个字符。

因为“\”本身在查找控制字符里面具有特殊的控制意义（转义），所以要匹配它自己就必须在前面再加一个“\”进行转义。

* 匹配0到任意多个任意字符([^11^13]){1} 匹配一个换段符（^13，在文档里面是直接键入ENTER得到）或者一个段内换行符（^11，在文档里面键入SHIFT+ENTER得到）。

方括号的意思是匹配方括号里面这个集合中的任意字符。

“{n}”表示匹配n次，所以“{1}”就是匹配1次了。

至于那个圆括号，和上面提到的圆括号的功能相同，同样我觉得这里使用是多余的。

整句话的意思，就是要找到形如“Subject\ajdslfjasdlf”文字，且它后面必须是一个换段或者段内换行。

__________________补充：楼主说的没错，^11^13在这里是可以理解成或者的关系。

请问楼主提到的需求中，title后面是不是一定会有一个回车？如果是这样的话，可以直接在Word查找替换对话框中用这个查找串： <Subject*\\<([!\\]@)[^11^13] ，替换为：\1 。

选中通配符后做全部替换即可。

应该是不需要VBA的吧？楼主可以先试试看，如果不行我再想办法。

___________________再补充：（[！\\]@) 的意思就是匹配一个不包含“\”（这个由“[！\\]”来控制）的字符串，这个字符串由至少一个字符组成（这个由“@”来控制）。

所以，我的整个查找串的意思就是，查找一个“Subject”开头，后面有若干字符，最后一个反斜杆的后面有一个字符串，再往后就是一个回车。

当然，如果不想用通配符，当然自己写代码也是能做到了。

但是就得自己去分析整个字符串，会需要考虑很多因素和可能的变化，代码会写得很复杂。

此外，Word查找替换的通配符，是Word中很重要的一个功能，掌握它能够为平时的工作带来的很大便利。

所以还是值得去研究一下的。

其实我就是看Word自带的帮助啊……在Word里面键入F1，然后输入关键字“查找替换”，好象返回的第一条就是我看的那个帮助，里面有这些控制符号的解释。

不过Word的查找替换对于模糊查询的支持总的来说还是比较弱。

要想做到更精确、更复杂的搜索条件，还是需要用到正则表达式。

这个可以在网上搜索一下“VBA 正则表达式”。

VBA For Word关于替换的几个问题,高手请进

1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】；用VBA代码设置Word自动保存的步骤2、双击刚才插入的【模块1】，添加如下代码：Sub 自动备份（）Dim NewTimeNewTime = Now + TimeValue(“00:05:10”)Dim myPath$, myName$myPath = ActiveDocument.PathmyName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)ChangeFileOpenDirectory myPathActiveDocument.SaveAs FileName:=myName & “_temp.doc”, ReadOnlyRecommended:=TrueActiveDocument.SaveAs FileName:=myName & “.doc”, ReadOnlyRecommended:=FalseApplication.OnTime NewTime， “自动备份”CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” & myName & “_temp.doc”, 2， “提示！2秒后自动关闭！”End Sub用VBA代码设置Word自动保存的步骤用VBA代码设置Word自动保存的步骤3、双击【ThisDocument】并在其中 添加如下代码：Private Sub Document_Open()Call 自动备份End Sub用VBA代码设置Word自动保存的步骤4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：时间格式为：HH : mm : ss用VBA代码设置Word自动保存的步骤5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》 【启用此内容】，如图：用VBA代码设置Word自动保存的步骤6、默认备份文件名为：【原文件名_temp,Lee.doc】且为只读，提示对话框2s后自动关闭。

备份效果显示如下：

Word2010 vba 页眉替换问题

亲，这一句要改一下：mysec.Headers(1).Range.Text = Replace(Replace(mysec.Headers(1).Range.Text, ＂ABC＂, ＂111＂), Chr(13), ＂＂)因为，如果您注意观察，会发现页眉的文字最后都有一个回车字符，就如同段落、表格的末尾一样，这个字符也是页眉的一部分。

你可以用debug.print len(mysec.headers(1).range.text）看一下页眉的长度，是包含了末尾回车字符的（chr(13)）。

所以，当你用replace替换之后，这个回车字符仍然在。

注意：关键是给header.range.text赋值时，word vba默认是不含最后一个回车字符的；这样更方便编程，否则每次都要记住在末尾加一个chr(13)，岂不把人烦死！最后，解决方法就是，再使用一次replace，在赋值前把回车符去掉。

word如何批量替换不同内容

展开全部 这个代码，这么贴出来，可读性太差了吧？ 不能替换的原因： excel中的内容和word文档中的内容不能匹配； excel中的字符串含有很多空格，而WORd中没有，多以find不到，因此不能做Replace。

检查下文档就好了。

另外，代码我也帖一个吧。

Sub test1() iweizhi = 14 '生成合同文件 Dim yangbenpath As String yangbenpath = Application.ActiveWorkbook.Path & Sheets（＂明细＂）.Cells(iweizhi, 23).Value '获取修改文件《测试.doc》的位置 Dim deskpath As String Dim weizhi As Variant Dim WdApp, Wd, i%, Rng Rng = Sheets（＂明细＂）.Range(＂W23:X32＂) Application.ScreenUpdating = False Set WdApp = CreateObject(＂word.application＂) WdApp.Visible = True With WdApp.Documents.Open(yangbenpath) WdApp.Visible = True With .Content For i = 1 To UBound(Rng) If .Find.Execute(Rng(i, 1)) Then .Text = Rng(i, 2) End If Next i End With .SaveAs ＂C:\2.doc＂ End With' deskpath = CreateObject(＂WScript.Shell＂).SpecialFolders(＂Desktop＂) & ＂\＂ '获取桌面位置路径' Wd.SaveAs deskpath & Sheets（＂明细＂）.Cells(3, 24).Value & ＂.doc＂ '另存到桌面，文件名称为合同名 WdApp.Visible = True Set Wd = Nothing Set WdApp = Nothing Application.ScreenUpdating = TrueEnd Sub...

如何用VBA查找word文档中的中文括号,并依次将找到的括号内的文字...

开启模糊查询即可，再判断一下查找的长度Sub 分章（）Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext：=＂第*章＂， Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles（＂标题 2＂）End IfNextEnd Sub测试运行了下，效果有点不好，修改一下Sub 分章（）Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext：=＂第*章＂， Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles（＂标题 2＂）Elsemyrange.Start = myrange.Start + 1End IfNextEnd Sub

VBA如何把内容从当前word复制到另一个word文件中

'打开后焦点发生了转移，activedocument已经指向刚打开的文件了'改为Sub Macro1()Dim myDoc'On Error Resume NextWith ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).RangeSet myDoc = Word.Application.Documents.Open(＂E:\1.docx＂).Delete.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub'(InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中，你确定表2存在吗？我测试时只建一个表，所以改为Tables(1).)'也可以这样控制焦点Sub Macro1()Dim myDoc'On Error Resume NextSet myDoc = Word.Application.Documents.Open(＂E:\1.docx＂, , , , , , , , , , , vbHide)With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range.Delete.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub

转载请注明出处51数据库 » word用vba替换