Ricky的文档中包含很多评论。他想更改这些评论中重复出现的一个词。例如，在短语“引起乔的注意”中，他可能希望将其更改为“引起玛丽的注意”。 Ricky想知道是否有一种方法可以进行这种查找，替换和仅影响注释。

实际上，这种任务在Word中非常容易完成，您可以通过几种方法来完成它。这是一种实现方法：

。将插入点放在文档中的第一个注释内。

（这很重要，因此请不要跳过此步骤。）

。按Ctrl + H。 Word将显示“查找和替换”对话框的“替换”选项卡。

。根据需要在对话框中填写设置。 （例如，在“查找内容”框中，输入文本“ Joe”，在“替换为”框中，输入文本“ Mary”。）

。单击查找下一个。 Word在注释中找到您要查找的文本的第一个匹配项。

。根据需要单击“替换”或“查找下一个”，直到您在注释中进行了所有所需的更改。

。关闭查找和替换对话框。

如果遵循以下替代步骤，则可以跳过第一步（需要在第一个注释中放置插入点）：

。按Ctrl + H。 Word将显示“查找和替换”对话框的“替换”选项卡。

。单击查找选项卡，以便显示它。

。在“查找内容”框中，输入要查找的文本，例如“ Joe”。

。单击查找范围下拉列表，然后选择注释。 （如果您使用的是“替换”选项卡而不是“查找”选项卡，则此下拉列表不可用。为什么？谁知道！）Word选择注释中找到的所有匹配项。

。单击替换选项卡，以便显示它。

。在“替换为”框中，输入要用作替换文本，例如“ Mary”。

。单击全部替换按钮。 Word将步骤3中指定的文本的所有实例替换为步骤6中指定的文本，并且仅在注释中这样做。

。关闭查找和替换对话框。

如果您需要对许多文档进行这些更改（例如Joe离开了公司而Mary是新的要职），那么您可能会对使用宏进行更改感兴趣。对于任何活动的文档，下面的方法都能解决问题：

Sub MakeItMary()

Dim c As Comment     Dim sFind As String     Dim sReplace As String

sFind = "Joe"

sReplace = "Mary"

For Each c In ActiveDocument.Comments         c.Range.Text = Replace(c.Range.Text, sFind, sReplace)

Next End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（6200）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。