Как обнулить ChangePreferences в VBS?

vbatushev · 11.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

Dim myID as InDesign.Application
myID.ChangePreferences = Nothing

Alexxxander · 13.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

vbatushev сказал(а):
Dim myID as InDesign.Application
myID.ChangePreferences = Nothing

Увы, не работает!
Выдает на "Dim myID as InDesign.Application":
Ошибка: Предполагается наличие окончания инструкции
Источник: Ошибка компиляции Microsoft VBScript.

Убираю " as InDesign.Application"
Теперь ошибка в "myID.ChangePreferences = Nothing" -- "требуется объект:".

Как предложено будет работать на VB.
А как сделать на VBScript?

Должно быть что-то вроде:

Код:

Set idz = CreateObject("InDesign.Application.2.0")
idz.ChangePreferences = idNothing

Но выдает ошибку во 2й строке: "Invalid Parameter"

vbatushev · 13.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

Ну, извини, я для VB написал

Должно быть просто Nothing.

Alexxxander · 14.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

vbatushev сказал(а):
Ну, извини, я для VB написал
Должно быть просто Nothing.

Да хоть Nothing, хоть "на фиг" -- никак не работает :mad:
Неужели никто не знает?
И по другим вопросам -- ничего?!

vbatushev · 14.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

Что значит не знает???
У меня это работает в скрипте sZam.

Alexxxander · 15.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

vbatushev сказал(а):
Что значит не знает???
У меня это работает в скрипте sZam.

Он ведь не на VBScript написан...
Мда... надо переходить на CS и писать на js.

vbatushev · 17.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

До меня кажется дошла суть твоей проблемы.
Скажи, пожалуйста, а ты скрипт свой из InDesign'а, запускаешь или снаружи?
В любом случае попробуй заменить константу idNothing ее значением: 1851876449.
Должно помочь

Alexxxander · 20.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

vbatushev сказал(а):
До меня кажется дошла суть твоей проблемы.
Скажи, пожалуйста, а ты скрипт свой из InDesign'а, запускаешь или снаружи?
В любом случае попробуй заменить константу idNothing ее значением: 1851876449.
Должно помочь

Снаружи.
Спасибо огромное! Как раз дело было в этом. idNothing просто непределена в VBS. При подстановке значение все отлично работает!

А вот
1. можно ли вызывать из одного VBS-файла другой?
И
2. Как изменить атрибуты части абзаца (это уже чисто ID object model)?
Пока не могу найти ответа...

vbatushev · 20.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

В "обычном" VBScript можно (например, через WshShell.Run), а вот под ID – не знаю. Вообще, конечно, перебирайся под CS

Что касается части абзаца, то я не очень понимаю, что нужно сделать. Попробуй сформулировать задачу, быть может, я смогу что-то подсказать конкретнее.

Да, из форумов по скриптингу можно порекомендовать www.adobeforums.com, это официальный форум Адоб, но там много воды и не всегда отвечают на вопросы (впрочем, здесь тоже не всегда :))

Alexxxander · 20.09.2004

Ответ: Как обнулить ChangePreferences в VBS?

vbatushev сказал(а):
В "обычном" VBScript можно (например, через WshShell.Run), а вот под ID – не знаю. Вообще, конечно, перебирайся под CS

Работает:

Код:

Dim WshSHell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("C:\Path\SomeScript.vbs")

vbatushev сказал(а):
Что касается части абзаца, то я не очень понимаю, что нужно сделать. Попробуй сформулировать задачу, быть может, я смогу что-то подсказать конкретнее.

Вообще я описал это в топике: Как изменить часть абзаца
Еще один вариант кроме указанного: с помощью Search (т.е. сначала находим по нужным признакам текст, атрибуты которого нужно изменить, потом ставим какие надо ChangePreference и делаем замену на эти атрибуты найденного текста), но уж все это очень извращенно. Должно ведь быть что-то более простое.
Еще один пример для большей понятности. Есть такой текст:

Роман Кармен положил в карман роман Ромена Роллана и пошел в «Ромэн» на «Кармен».

Нужно все (любые, заранее неизвестные) находящиеся в кавычках слова сделать п/ж.