скрипт для создания оглавления

[Alena_P]

запускаю скрипт для создания оглавления:

WITHOBJECT "CorelVentura.Automation.10"
	.ChapterAddNew "Chapter25"
	.ViewGotoPage 1, "Chapter25", 0, 4, FALSE
	.FormatChapterAutoNumber TRUE, 1
	.FormatAutoNumberDefine 1, "", 0, "tab_str1", "", 1, TRUE
	'.InsertCrossReference 0, "", FALSE, 0, 0, .Insert1 = FALSE, .Insert2 = FALSE
	.FormatTOCLevelSet "New Table of Contents", 1, "tab_str1", "[P#]"
END WITHOBJECT

в итоге создает в навигаторе индексный файл, а само оглавление не показывает, т.е оно создается, но не отображается....в чем трабла?

 

[Neech]

Ответ: скрипт для создания оглавления

А разве в Вентуре нет функции создания оглавления? Publication->Table of Contents. Зачем еще скрипт?

 

[Yurii_Suhnaoff]

Ответ: скрипт для создания оглавления

А если файл из нафигатора мышкою перетащить в пустой фрейм ?

 

[Alena_P]

Ответ: скрипт для создания оглавления

А разве в Вентуре нет функции создания оглавления? Publication->Table of Contents. Зачем еще скрипт?

Есть, но верстальщики требуют скрипт именно со вставкой оглавления в заданный фрейм.

 

[Alena_P]

Ответ: скрипт для создания оглавления

А если файл из нафигатора мышкою перетащить в пустой фрейм ?

Вот в этом и проблема, он вроде создает оглавление и индексацию, мышкой перетягиваешь просто пишет текст New Index.

 

[Neech]

Ответ: скрипт для создания оглавления

можете выложить кусок публикации с оглавлением?

 

[Alena_P]

Ответ: скрипт для создания оглавления

можете выложить кусок публикации с оглавлением?

скидываю что есть

 

[Neech]

Ответ: скрипт для создания оглавления

Попробуйте так

REM Created On Wednesday, January, 06, 2010 by ponka

WITHOBJECT "CorelVentura.Automation.10"
	.ChapterAddNew "Chapter25"
	.ViewGotoPage 1, "Chapter25", 0, 4, FALSE
	.FormatChapterAutoNumber TRUE, 1
	.FormatAutoNumberDefine 1, "", 0, "tab_str1", "", 1, TRUE
	.ViewGotoPage 1, "Chapter25", 0, 4, FALSE
	'.InsertCrossReference 0, "", FALSE, 0, 0, .Insert1 = FALSE, .Insert2 = FALSE
	.FormatTOCLevelSet "New Table of Contents", 1, "tab_str1", "[P#]"
	LastTOC& = .FormatTOCCount ( )   'number of tags
	LastTOCName$ = .FormatTOCGetAt (LastTOC&)
	.FormatTOCUpdate LastTOCName$
	.FormatAttachTextFile "New Table of Contents"
END WITHOBJECT

 

[Alena_P]

Ответ: скрипт для создания оглавления

Спасибо, попробовала, пишет ошибку в скрипте...((

 

[igorm]

Ответ: скрипт для создания оглавления

Спасибо, попробовала, пишет ошибку в скрипте...((

Уж не знаю, какие у вас проблемы. Открыл вашу публикацию, создал фрейм (уж привязывайте его, куда хотите, создавайте ему тэг и пр., делайте десять разных оглавлений на разных страницах), нашел в навигаторе оглавление, сгенеренное Вентурой (у вас оно называется "Данные в газету от...", потом проапдейтил его в Publicatoin - Table of content ... и т.д. - заменился прекрасно. Заносите фрейм с содержимым в шаблон публикации, и пусть верстальщики радуются жизни.
И встречный вопрос - а зачем столько глав? В них же утонуть можно...

 

[igorm]

Ответ: скрипт для создания оглавления

Виноват, в спешке положил не тот файл. Вот ваша публикация с рубрикатором на первой полосе, который апдейтится штатными средствами Вентуры. На мой взгляд, проблема была в некорректной подготовке самой публикации (у вас куча рубрикаторов с одинаковым именем в разных главах (зачем????), в Вентура - девушка капризная, не любит она этого, путается. Попробуйте, может, и скрипт не понадобится. Баловство это для оглавления...

 

[Neech]

Ответ: скрипт для создания оглавления

Спасибо, попробовала, пишет ошибку в скрипте...((

работает на вашей публикации в Ventura 10