ドキュメントには、意図的に互いに非常に類似している多くの単語が含まれていることがよくあります。たとえば、一連の部品番号を参照するドキュメントがあり、部品番号がすべて互いに非常に似ている場合があります。または、名前のベース部分が同じ単語であるファイル名のグループを参照することもできますが、各ファイル名には、次のように数字の接尾辞が付いています。

Widget01 Widget02 Widget03 Widget04 Widget05

ドキュメント内の数値をインクリメントする必要がある場合、このプロセスは非常に面倒で、手作業でエラーが発生しやすくなります。

（もちろん、変更する必要のある名前の数によって異なります。）これは、タスクがマクロによって実行されるのに最適な候補であることを意味します。

例として、次のマクロBumpNumbersは、Widgetという単語のすべてのインスタンスを検索し、その直後に2桁の数字が続きます。

その後、番号が増加します。

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

明らかに、このマクロは特定のニーズに合わせて調整されています。つまり、ウィジェットという単語の後に2桁の数字が続きます。番号付けのニーズに合わせてマクロを変更する必要がある場合は、For …​ Nextループを変更する（98から1にならないようにする）か、検索するテキストを変更する（割り当てられている）ことで変更できます。 sFindText変数に）。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（12121）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ word-Bumping_Numbers_in_a_Document [ドキュメント内の番号のバンピング]。