Пожалуйста извините что обращаюсь к вам с такой просьбой. Но я уже голову сломал, всякие книги пролистал про скрипты прочитал посмотрел образцы ничего не получается.
Подправьте пожалуйста скрипт
Здравствуйте. У меня вот такая проблема: есть текст
Иванов И.И. Заголовок статьи<T>№1, 2008<T>12-24<P>
Петров И.И. Заголовок статьи<T>№1, 2008<T>25-45<P>
Сидоров И.И. Заголовок статьи<T>№1, 2008<T>46-56<P>
(<T> - табуляция <P>- enter)
Я сделал так:
REM Created On Monday, February, 11, 2008 by Andrey
WITHOBJECT "CorelVentura.Automation.8"
.TextStartOfPara
.FormatSetParaTag "!ZagAutoName_1"
.FormatParaTagBegin .TagsInSelection = TRUE
.FormatParaFont .Weight = 400, .Italic = TRUE
.FormatParaDefaults .OverscoreThickness = 1852, .OverscoreShift = 36117, .StrikeThickness = 1852, .StrikeShift = 12039, .Underline1Thickness = 1852, .Underline1Shift = 3704, .Underline2Thickness = 1852, .Underline2Shift = 7408, .SuperscriptPointSize = 5.25, .SuperscriptShift = 9261, .SubscriptPointSize = 5.25, .SubscriptShift = 18521
.FormatParaTagEnd
.TextWordRight 3, FALSE
.TextCharRight 1, FALSE
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_2"
.FormatParaTagBegin .TagsInSelection = TRUE
.FormatParaFont .Weight = 400, .Italic = FALSE
.FormatParaDefaults .OverscoreThickness = 1852, .OverscoreShift = 36117, .StrikeThickness = 1852, .StrikeShift = 12039, .Underline1Thickness = 1852, .Underline1Shift = 3704, .Underline2Thickness = 1852, .Underline2Shift = 7408, .SuperscriptPointSize = 5.25, .SuperscriptShift = 9261, .SubscriptPointSize = 5.25, .SubscriptShift = 18521
.FormatParaTagEnd
.EditInitFindText "<T>", .CurrentChapter = FALSE, .Backward = FALSE, .FromBegin = FALSE, .MatchCase = FALSE, .WholeWord = FALSE, .MaintainCase = FALSE, .Reset = FALSE
.EditInitFindText .Reset = TRUE
.EditFindText
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_3"
.EditInitFindText "<T>", .CurrentChapter = FALSE, .Backward = FALSE, .FromBegin = FALSE, .MatchCase = FALSE, .WholeWord = FALSE, .MaintainCase = FALSE, .Reset = FALSE
.EditInitFindText .Reset = TRUE
.EditFindText
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_4"
.TextParaDown
END WITHOBJECT
Так вот первое: если Фамилия И.О. то этот скрипт работает и делает как надо а вот если "Фамилия И." или "Фамилия И. О.", или "Иванов И.И., Петров И.О., Сидоров И." то уже нет
ошибка в этих строчках:
.TextWordRight 3, FALSE
.TextCharRight 1, FALSE
здесь надо указать что-то другое а вот что и как я не знаю
и второе: как указать чтобы скрипт выполнялся автоматически к выделенному тексту.
Спасибо!
Подправьте пожалуйста скрипт
Здравствуйте. У меня вот такая проблема: есть текст
Иванов И.И. Заголовок статьи<T>№1, 2008<T>12-24<P>
Петров И.И. Заголовок статьи<T>№1, 2008<T>25-45<P>
Сидоров И.И. Заголовок статьи<T>№1, 2008<T>46-56<P>
(<T> - табуляция <P>- enter)
Я сделал так:
REM Created On Monday, February, 11, 2008 by Andrey
WITHOBJECT "CorelVentura.Automation.8"
.TextStartOfPara
.FormatSetParaTag "!ZagAutoName_1"
.FormatParaTagBegin .TagsInSelection = TRUE
.FormatParaFont .Weight = 400, .Italic = TRUE
.FormatParaDefaults .OverscoreThickness = 1852, .OverscoreShift = 36117, .StrikeThickness = 1852, .StrikeShift = 12039, .Underline1Thickness = 1852, .Underline1Shift = 3704, .Underline2Thickness = 1852, .Underline2Shift = 7408, .SuperscriptPointSize = 5.25, .SuperscriptShift = 9261, .SubscriptPointSize = 5.25, .SubscriptShift = 18521
.FormatParaTagEnd
.TextWordRight 3, FALSE
.TextCharRight 1, FALSE
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_2"
.FormatParaTagBegin .TagsInSelection = TRUE
.FormatParaFont .Weight = 400, .Italic = FALSE
.FormatParaDefaults .OverscoreThickness = 1852, .OverscoreShift = 36117, .StrikeThickness = 1852, .StrikeShift = 12039, .Underline1Thickness = 1852, .Underline1Shift = 3704, .Underline2Thickness = 1852, .Underline2Shift = 7408, .SuperscriptPointSize = 5.25, .SuperscriptShift = 9261, .SubscriptPointSize = 5.25, .SubscriptShift = 18521
.FormatParaTagEnd
.EditInitFindText "<T>", .CurrentChapter = FALSE, .Backward = FALSE, .FromBegin = FALSE, .MatchCase = FALSE, .WholeWord = FALSE, .MaintainCase = FALSE, .Reset = FALSE
.EditInitFindText .Reset = TRUE
.EditFindText
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_3"
.EditInitFindText "<T>", .CurrentChapter = FALSE, .Backward = FALSE, .FromBegin = FALSE, .MatchCase = FALSE, .WholeWord = FALSE, .MaintainCase = FALSE, .Reset = FALSE
.EditInitFindText .Reset = TRUE
.EditFindText
.TypeText CHR(10)
.FormatSetParaTag "!ZagAutoName_4"
.TextParaDown
END WITHOBJECT
Так вот первое: если Фамилия И.О. то этот скрипт работает и делает как надо а вот если "Фамилия И." или "Фамилия И. О.", или "Иванов И.И., Петров И.О., Сидоров И." то уже нет
ошибка в этих строчках:
.TextWordRight 3, FALSE
.TextCharRight 1, FALSE
здесь надо указать что-то другое а вот что и как я не знаю
и второе: как указать чтобы скрипт выполнялся автоматически к выделенному тексту.
Спасибо!