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

Widget01 Widget02 Widget03 Widget04 Widget05

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

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

例如,下面的VBA宏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是世界上最流行的文字处理软件。)本技巧(814)适用于Microsoft Word 97、2000、2002和2003。您可以找到Word(Word 2007)的功能区界面的本技巧版本。和更高版本)在这里: