помогите, нужно переписать скрипт с пейджа под индизайн CS3

[a_mixa]

Делаю справочник, а там заморочка, давно написали скрипт под пейдж 6,5, сейчас перешли на индизайн, только учусь в нем работать а нужно как всегда работу сдать вчера. Кто может помогите, ПЛИЗЗЗ!
вот что было в пейдже:
--Скрипт расставляет входы указателя для абзацев заданного стиля

-------------------------------------------------
-------------------------------------------------
--Ввести переменные

style="0. Firm_inogorod"
--style="1. Firm_Belgorod"
--style="2. Firm_Volgograg"
--style="3. Firm_Voroneg"
--style="4. Firm_Karach-Cherkess"
--style="5. Firm_Krasnodar"
--style="6. Firm_Rostov"
--style="7. Firm_Stavropol"
--style="8. Firm_Chechnya"
-------------------------------------------------
-------------------------------------------------

--Проверяем что выбрано
GetSelectIDList >> nNumOfObject, ..., ..., ..., ..., cTypeOfObject, ...
if nNumOfObject = 0
message "Ни один объект не выделен. Выделите текстовый блок"
return
endif
if nNumOfObject > 1
message "Выделено несколько объектов. Выделите один текстовый блок"
return
endif
if cTypeOfObject > 1
message "Выделеный объект не является текстовым блоком. Выделите текстовый блок"
return
endif

editstory

FindParaAttr style, -3, -3
FindTypeAttr1 "Любой",-3,-3,-3,-3,-3
FindTypeAttr2 -3,-3,"Любой",-3

try Find "",currentstory,stopatend,anycase,allinstances,useattributes
getlasterror>>err
NStyles=0

while not(err)
NStyles=NStyles+1
IndexAuto
try FindNext
getlasterror>>err
endloop


closestory 0

message "Стиль "+ style +" найден " + str(NStyles) + " раз"

return