Как нумеровать ключевые поля

Написал Гость в 25/12/2011 14:38:41

Добрый день всем - тут я нашел макрос Numberator решил дописать его чтобы нумеровал все найденные ключи в каждой странице документа

Dim n As Integer
Dim s As Shape
Dim p As CorelDRAW.Page
KW = txtLabel.Text
n = CInt(Val(tbNumber.Value))
For Each p In ActiveDocument.Pages
p.Activate
For Each s In ActivePage.FindShapes(, cdrTextShape)
If s.Text = KW Then
s.Text.Replace KW, FormatNumber(n, 0, vbTrue, vbFalse, vbFalse), False, ReplaceAll:=True
End If
n = n + 1
Next s
Next p
End Sub

но проблема в том что оно нумерует не по значению "N" -а как попало - как бы первое найденный ключ получает значение 3 - второй уже в следующей странице 2 - третий 69

дело в том что на каждой странице много текстовых полей - надо нумеровать поля на которых стоит "@"

помогите плиз