word按条件替换怎么做？如何高效完成替换操作？

Word按条件替换怎么做？如何高效完成替换操作？

一、引言

在Word文档编辑过程中，我们经常会遇到需要按条件进行替换的情况。例如，将文档中所有的“苹果”替换为“香蕉”，但仅限于标题行。这种情况下，如何高效完成替换操作呢？本文将为您详细介绍Word按条件替换的方法，并分享一些提高替换效率的小技巧。

二、Word按条件替换的方法

1. 使用查找和替换功能

（1）打开Word文档，点击“开始”选项卡，找到“查找”组中的“查找和替换”按钮。

（2）在弹出的“查找和替换”对话框中，选择“替换”选项卡。

（3）在“查找内容”框中输入要替换的文本（如“苹果”）。

（4）在“替换为”框中输入替换后的文本（如“香蕉”）。

（5）点击“更多”按钮，展开更多选项。

（6）在“格式”下拉菜单中选择“段落”，然后勾选“标题”复选框。

（7）点击“全部替换”按钮，即可完成按条件替换。

2. 使用VBA宏

（1）打开Word文档，点击“文件”选项卡，选择“选项”。

（2）在弹出的“Word选项”对话框中，选择“自定义功能区”。

（3）在“从以下位置选择命令”下拉菜单中选择“宏”。

（4）在“命令”列表中找到“查找和替换”命令，点击“添加”按钮。

（5）关闭“Word选项”对话框。

（6）按下快捷键Alt + F11，打开VBA编辑器。

（7）在VBA编辑器中，插入一个新的模块，并输入以下代码：

```

Sub 替换条件文本()

Dim rng As Range

Set rng = ActiveDocument.Content

With rng.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = "苹果"

.Replacement.Text = "香蕉"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

.Replacement.Format = True

.Replacement.Font.Bold = True

.Replacement.Font.Color = wdColorBlack

.Replacement.Font.Name = "宋体"

.Replacement.Font.Size = 12

.Replacement.Font.Underline = wdUnderlineNone

.Replacement.Font.Strikethrough = False

.Replacement.Font.Superscript = False

.Replacement.Font.Subscript = False

.Replacement.Font.ColorIndex = wdColorAutomatic

.Replacement.Font.Shading.BackgroundPatternColor = wdColorAutomatic

.Replacement.Font.Shading.ForegroundPatternColor = wdColorAutomatic

.Replacement.Font.Shading.Pattern = wdShadingNone

.Replacement.Font.Shading.BackgroundPatternType = wdPatternNone

.Replacement.Font.Shading.ForegroundPatternType = wdPatternNone

.Replacement.Font.Kerning = False

.Replacement.Font.Charset = 134

.Replacement.Font.ColorIndex = wdColorAutomatic

.Replacement.Font.HangingPunctuation = False

.Replacement.Font.Outline = False

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVerticalPositionAtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position = wdRelativeVertical位置AtLeast

.Replacement.Font.Position =