文档中经常包含许多有意彼此非常相似的单词。例如，您可能有一个引用了一系列零件号的文档，并且零件号彼此非常相似。或者，您可以引用一组文件名，其中名称的基本部分是相同的单词，但是每个文件名都有一个后缀即数字，例如：

Widget01 Widget02 Widget03 Widget04 Widget05

如果您需要增加文档中的编号，则此过程可能非常繁琐且容易出错。

（当然，这取决于您需要更改的名称数量。）这意味着该任务是由宏完成的理想选择。

例如，下面的宏BumpNumbers将搜索单词Widget的所有实例，紧随其后的是两位数。

然后数字将增加。

Sub BumpNumbers()

Dim J As Integer     Dim sFindText As String     Dim sReplaceText As String

Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With

For J = 98 To 1 Step -1         sFindText = "Widget" & Right("00" & Trim(CStr(J)), 2)

sReplaceText = "Widget" & Right("00" & Trim(CStr(J + 1)), 2)

Selection.Find.Text = sFindText         Selection.Find.Replacement.Text = sReplaceText         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

显然，此宏是为特定需求量身定制的-单词Widget后跟两位数字。如果您需要修改宏以适合您的编号需求，可以通过更改For …​ Next循环（这样它不会从98变为1）或通过更改要搜索的文本（已分配）来实现。到sFindText变量）。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（12121）适用于Microsoft Word 2007、2010、2013和2016。您可以在此处找到适用于Word的较早菜单界面的该技巧的版本：

在文档中弹出数字。