作者：乔山办公网日期：
返回目录：word文档
把所有文件放在一e5a48de588b6e799bee5baa6e79fa5e98193361个文件夹中，打开任意一个文件，打开VBA编辑器
输入以下代码
Option Explicit
Sub AddTheEnd()
Dim Self$, CurrPath$, CurrFile$
Dim Doc As Document
CurrPath = ThisDocument.Path & "\"
Self = ThisDocument.Name
CurrFile = Dir(CurrPath)
Do Until CurrFile = ""
If CurrFile <> Self And CurrFile <> "." And CurrFile <> ".." And (LCase(Right(CurrFile, 5)) = ".docx" Or LCase(Right(CurrFile, 4)) = ".doc") Then
Set Doc = Documents.Open(CurrPath & CurrFile)
ActiveDocument.Content.InsertAfter Text:=" 【本文结束】"
Doc.Save
Doc.Close
Set Doc = Nothing
End If
CurrFile = Dir()
Loop
End Sub
运行后就可以在该文件夹下的所有文件后面添加【本文结束】了。
首先选中所有标题：选中一个标题，然后，右击，“样式”－－“选择格式相似的文本”，这时标题就被全部选中；
然后，再进行查找替换，选择只替换选中的文本。
ctrl+h调出替换对话框
查找内容输入：([0-9])([!0-9.])
替换为输入：\1g\2
高级或更多选择“使用通配符”，点击全部替换
具体操作步骤如下：
1、首先，打开word文档，在第一段中创建一个新的段标记符，如下图所示，然后进入下一步。
2、其次，完成上述步骤后，单击文档右zhidao上角编辑下的【替换】按钮，如下图所示，然后进入下一步。内
3、接着，在容弹出窗口上方栏中输入^ p，在下方栏替换的内容中输入^ p+要添加的文本内容，然后单击全部替换按钮，如下图所示，然后进入下一步。
4、然后，完成上述步骤后，系统将提示已替换4个内容，单击“确定”，如下图所示，然后进入下一步。
5、最后，可以看到在前面的文本前面就批量添加了相同的文本内容，如下图所示。这样，问题就解决了。