Регистрация | | запомнить |
 
 
ВК



Просматривают:   1 Анонимно





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

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

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

Опубликовано: 2011/12/25 14:38


Re: Как нумеровать ключевые поля
Пользователь 1 уровня
Присоединился:
2010/5/13 13:56
Откуда Московская обл.
Сообщений: 274
Offline
n=n+1 должно стоять внутри if ... end if
И для чего вот это: n = CInt(Val(tbNumber.Value)) ?

Опубликовано: 2011/12/28 0:40
_________________
Corel FOREWER!!!!!!!!!!!!







Форма быстрого ответа
ЛогинИмя   Пароль   Логин
Сообщение:          

      ПРИМЕР


 [далее...]
Уведомлять о сообщениях в теме.



[Настройки поиска]