Martin最近从公司法律团队那里收到了他们不希望在公司创建的文档中看到的短语列表。

例如，在大多数情况下，短语“解决方案将”应改为“解决方案旨在”。马丁想知道是否有一种方法可以通过语法检查器在Word中自动检查和标记此新短语列表。

不幸的是，语法检查器不会这样做。在Word中，根本没有办法添加您自己的短语，以便语法检查器可以“检查”它们。

但是，听起来，您可能需要两种解决方案-一种在编写新文档时会发挥作用，而另一种可用于检查现有文档。实际上，“按需编写”解决方案非常简单-您所需要做的就是使用自动更正为您自动更改有问题的短语。

。显示“ Word选项”对话框。 （在Word 2007中，单击Office按钮，然后单击Word选项。在Word 2010或更高版本中，显示功能区的“文件”选项卡，然后单击“选项”。）

。单击对话框左侧的校对。

。单击自动更正选项。 Word将显示“自动更正”对话框。

（请参见图1。）

。在“替换”框中，输入您要冒犯的词组。

。在“使用”框中，键入首选短语。

。单击添加按钮。

。对其余的每个令人讨厌的短语重复步骤4到6。

。单击“关闭”关闭对话框。

现在，当您在文档中键入内容时，每当输入有问题的短语并按下该短语之后的空格或标点符号时，Word就会自动用首选短语替换该短语。

当然，自动更正方法对现有文档无济于事，如果从其他文档复制文本块并将其粘贴到当前文档中也无济于事。在这种情况下，您需要使用其他方法。最简单的方法是使用Word的“查找和替换”功能来查找有问题的短语，并确定是否要用首选短语替换它。如果您只需要纠正一些短语，则可以很好地工作。

如果短语列表较长，则可能需要考虑使用宏标记违规。这是一个简单的方法。

Sub ReplacePhrases()

Dim sBadPhrase(19) As String     Dim sGoodPhrase(19) As String     Dim iCount As Integer     Dim J As Integer

iCount = 6   ' Set to number of phrases

sBadPhrase(1) = "first offensive phrase"

sBadPhrase(2) = "second offensive phrase"

sBadPhrase(3) = "third offensive phrase"

sBadPhrase(4) = "fourth offensive phrase"

sBadPhrase(5) = "fifth offensive phrase"

sBadPhrase(6) = "sixth offensive phrase"



sGoodPhrase(1) = "first preferred phrase"

sGoodPhrase(2) = "second preferred phrase"

sGoodPhrase(3) = "third preferred phrase"

sGoodPhrase(4) = "fourth preferred phrase"

sGoodPhrase(5) = "fifth preferred phrase"

sGoodPhrase(6) = "sixth preferred phrase"



For J = 1 to iCount         With Selection.Find             .ClearFormatting             .Replacement.ClearFormatting             .Text = sBadPhrase(J)

.Replacement.Text = sGoodPhrase(J)

.Forward = True             .Format = False             .MatchWholeWord = False             .MatchCase = False             .MatchWildcards = False             .Wrap = wdFindContinue         End With         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

此宏用存储在sGoodPhrase数组中的短语对sBadPhrase数组中存储的值进行了大量替换。您需要做的就是用您的短语设置数组并更改iCount，使其等于您定义的短语数量。

（如果您超过19个词组，则还需要更改两个数组的声明，以使其足够大。）

注意：

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

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

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

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