Персонализация для бедных

[KarSlon]

2ss.

Делаешь на листе 10 карточек. Внутри каждой карточки есть этот твой объект-баркод. С точки зрения Корела у каждого такого объекта-баркода есть свой номер, который можно посмотреть в Инструменты/Управление данными, там в первой строке.

10 карточек - 10 номеров. переписываешь их все руками на листик, и вбиваешь в массив.

dim IDS& (10)

IDS (1) = 1316
IDS (2) = 1342
IDS (3) = 1359
IDS (4) = 1374
IDS (5) = 1390
IDS (6) = 1405
IDS (7) = 1421
IDS ( = 1436
IDS (9) = 1452
IDS (10) = 1467

Потом делаешь цикл - перебрать все элементы с номерами, которые ты только что записал (это внутренний цикл), и внешний цикл перебирает страницу за стрницей... В примере - с 89 стрницы до 103...

for

i = 89 to 103
for j = 1 to 10
.SelectObjectOfCDRStaticID IDS(j)
if (i-1)*10 + j < 10 then
AddOn$ = "000"
elseif (i-1)*10 + j < 100 then
AddOn$ = "00"
else
AddOn$ = "0"
endif

.SetArtisticText AddOn$ + str((i-1)*10 + j)
next j
.FilePrint
next i