V-Форум / Corel VBA / Тема: Как нумеровать ключевые поля

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

 25/12/2011 14:38:41 #Link

Гость

Добрый день всем - тут я нашел макрос 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

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

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

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

 28/12/2011 0:40:53 #Link

MAPUTO

n=n+1 должно стоять внутри if ... end if
И для чего вот это: n = CInt(Val(tbNumber.Value)) ?

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=10028&start=0

Rambler's Top100