convert symbol to continuous numbers

Hi all,

i'm looking for a sample way in VBA to look for a symbol through all word files and replace it to continuous numbers

for ex:

look for all (↑) symbol at the end of following paragraphs and replace it with number (1,2,3....etc)

Find:
also of Virginia. We were extremely lucky ↑


was sure they wanted to capture Powell. ↑


It was a pleasant feeling. My body became extremely heavy ↑

Replace:
also of Virginia. We were extremely lucky 1


was sure they wanted to capture Powell. 2


It was a pleasant feeling. My body became extremely heavy 3




thanks a lot in advance

i give my shot and solved it, thx anyway

Quote:

---

Const S_FIND AsString="↑"
Dim myNumber AsInteger

myNumber =1

DoWhile InStr(ActiveDocument.Content, S_FIND)>0
With ActiveDocument.Content.Find
.ClearFormatting
.Text = S_FIND
.Execute Replace:=wdReplaceOne, ReplaceWith:="("& myNumber &")", _
Forward:=True
EndWith
myNumber = myNumber +1Loop

---