Question

如何同时替换多个word文档中的文字

除了宏之外 更简单快捷的？
如何同时替换多个word文档中的文字内容？

注意是多个文档
不是在一个文档中。

Answer 1

　　1、如图，我们把文档中“baidu”全部替换为“百度”

　　2、点击“编辑”－“替换”（或按快捷键ctrl+h）调出替换对话框。

　　3、在“查找和替换”对话框里，查找内容填写“baidu”,替换为“百度”。点击全部替换。

　　4、全部替换后，关闭对话框。完成

　　

Answer 2

设置方法：
1、第二页的页眉处双击鼠标，进入页眉编辑状态；

2、单击页眉和页脚工具设计选项卡，选中首页不同复选框；

3、此页输入相应的页眉，首页不会有页眉。

Answer 3

提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性：

1、启动Word后，键入Alt+F11打开VBA编辑窗口；

2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码：
Option Explicit

Const g_strRootPath = "c:\Docs\" ' 指定存放所有文件的目录，可以有子目录
Const g_strTextToFind = "茶" ' 需要批量查找修改格式的文字内容

Dim g_oTargetFont As New Font

' 主函数
Sub Main()

Dim fso, oFolder

' 设置需要修改的字体属性
g_oTargetFont.Size = 18 ' 字号
g_oTargetFont.Color = wdColorRed ' 颜色
g_oTargetFont.Bold = True ' 是否加粗（True加粗，False正常）
g_oTargetFont.Italic = True ' 是否斜体（True斜体，False正常）
g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格
'... 设置其他字体属性

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(g_strRootPath)

ChangeFontStyleForFilesUnderFolder fso, oFolder

MsgBox "完成！"

End Sub

' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式
Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)

Dim oSubFolder, oFile

For Each oSubFolder In oFolder.SubFolders
ChangeFontStyleForFilesUnderFolder fso, oSubFolder
Next

For Each oFile In oFolder.Files
Documents.Open oFile.Path
ChangeFontStyleForActiveDocument
ActiveDocument.Close True
Next

End Sub

' 修改当前打开文档里面所有指定文字的格式
Sub ChangeFontStyleForActiveDocument()

Selection.StartOf wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = g_strTextToFind
.Replacement.Text = "^&"
.Replacement.Font = g_oTargetFont
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）；

4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等；

4、键入F5运行，直到看到“完成！”。

5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。

Answer 4

有专门的文档内容替换器，比如说列编辑器
在360软件管理中可以下载到
名字叫ULTRAEDIT
网上很多的破解版本

Answer 5

在菜单栏中单击 编辑--查找 弹出查找和替换对话框，点击替换，将要被替换的内容输入 选择全部替换或替换即可．快捷键为Ctrl+f