VBA Find and Replace and Number Problem in Word

[jhernon]

I have code (as a macro) that I want to locate all instances of oNum in a Word document and then replace it with ascending numbers starting with 1. I am doing document assembly where there can be a varying amount of oNum in each document. I've tried working with If, Then and For, Next, but don't have a firm grasp of VBA yet. This code will replace all oNum with 1. Here's the code:

Sub Find_Count()
'
' Find_Count Macro
' Macro recorded 9/9/2006

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "oNum"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[strongm]

You probably want to ask this in the VBA forum, forum707, rather than here in the VB forum