上一个技巧），Word在实际替换信息时也可以更加灵活。例如，假设您有一个文档，其中有许多字符X45实例。如果要查找这些字符并将其替换为常规X和上标45，可以使用多种方法。

第一种方法涉及两步搜索和替换。您可以按照以下一般步骤操作：

。搜索X45字符串，并将所有出现的内容替换为X $％$％。这里的想法是$％$％是一个字符串，在文档的其他地方没有使用过。

。搜索所有出现的$％$％并将其替换为上标45。

完成这两个步骤并不需要很长时间，而且，如果您需要在多个文档中执行这些步骤，则可以通过记录一个可以完成这些步骤的宏来自动执行该过程。

解决该问题的另一种方法是创建一个小的宏，该宏在一次扫描中即可进行实际的搜索和替换。宏可以找到所有出现的X45，只选择45个部分，使其成为上标，然后继续下一个出现。下面的宏就是这样做的：

Sub DoX45()

Dim oRng As Range     With Selection         .HomeKey unit:=wdStory         With .Find             .ClearFormatting             .Forward = True             .text = "X45"

.Execute             While .Found                 Set oRng = ActiveDocument.Range _                 (Start:=Selection.Range.Start + 1, _                   End:=Selection.Range.End)

oRng.Font.Superscript = True                 oRng.Start = oRng.End                 .Execute             Wend         End With     End With End Sub

最后，如果您不太在意宏，则有一个更简单的解决方案：

。按照您希望的格式格式化X45的第一个实例。

。选择实例，然后按Ctrl + C。格式化的版本现在位于剪贴板中。

。按Ctrl + H以显示“查找和替换”对话框的“替换”选项卡。 （请参见图1。）

。在查找内容框中键入X45。

。在“替换为”框中，键入^ c。

。单击全部替换。

通过执行以下步骤，Word用剪贴板的内容替换了X45的所有实例，而剪贴板的内容恰好是您要使用的格式化版本。换句话说，您的文本在一次搜索和替换操作中被格式化。

注意：

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

链接：/ wordribbon-WordTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1553）适用于Microsoft Word 97、2000、2002和2003。