Bumping Numbers in a Document

how to find out two digit or many more any digits in word file

Answer to "Ross".

The following lines of code have been tailored to fit the task needed.
Before using the following code use Microsoft Word's "Find And Replace" feature, and in the field for finding input "v", and in the field for replacing input "v00"

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 = 0 To 1000 Step +1
sFindText = "v" & Right("00" & Trim(CStr(J)), 2)
sReplaceText = "v" & 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

I would like to not so much bump existing numbers but put in a series of incrementing numbers in specific places in a text. For example, if I have the marker "v" scattered throughout a text I would like to add a '1' to the first one like "v 1 ", and "v 2 " at the next instance, and so forth.

An added complication - with seems to be the clincher in my experiments is that it needs to happen only within a selection of the available text in a document.

So far I have:

Sub Increment_Verse_Number()
Dim iNextVerse As Integer
Dim sReplaceText As String
iNextVerse = 1

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

With Selection
sFindText = "v "
sReplaceText = "v" + Str$(iNextVerse) + " "
iNextVerse = iNextVerse + 1
Selection.Find.Text = sFindText
Selection.Find.Replacement.Text = sReplaceText
Selection.Find.Execute Replace:=wdReplaceOne
End With
End Sub

However on the first replace the selection is removed and whatever I can do I can't get the replace value to increment!

Thanks.