у меня документ из 18 страниц...на выходе должен быть CDR со скурвленым текстом...и такая ситуация возникает довольно часто...так как мне за минимальное время это воплотить...
сейчас делаю так: на "Q" повесил "Выделить весь текст".....прыгаю на первую стр. жму "Q" потом Ctrl+Q и Page Down...и опять Q, Ctrl+Q и Page Down...
но всё равно трачу много времени...можно ли более эффективно это всё провернуть...?
сейчас делаю так: на "Q" повесил "Выделить весь текст".....прыгаю на первую стр. жму "Q" потом Ctrl+Q и Page Down...и опять Q, Ctrl+Q и Page Down...
но всё равно трачу много времени...можно ли более эффективно это всё провернуть...?
Ну наверное все так делают, я и 120 стр. курвил
>"Q" повесил "Выделить весь текст".....
Используй Ctrl+A Ctrl+Q!!!
сгруппируй текст с фигурой - поймешь
Если кто-то паурклипит (редкость, но по-разному верстают), лучше ваще Find Object панельку вызвать.
Либо связывай блоки (если текст сплошной).
Либо написанием какого-нибудь скрипта.
>"Q" повесил "Выделить весь текст".....
Используй Ctrl+A Ctrl+Q!!!
сгруппируй текст с фигурой - поймешь
Если кто-то паурклипит (редкость, но по-разному верстают), лучше ваще Find Object панельку вызвать.
Либо связывай блоки (если текст сплошной).
Либо написанием какого-нибудь скрипта.
- Рейтинг
- 2
Вот пользуйтесь:
Зайдите в VBA в кореле, вставте модуль (insert module) и скопируете слуюущую процедуру:
Sub text_to_curve()
Dim s As Shape
For i = 1 To ActiveDocument.Pages.Count
For Each s In ActiveDocument.Pages(i).Shapes.FindShapes(, cdrTextShape)
s.ConvertToCurves
Next s
Next i
MsgBox ("Готово")
End Sub
Могу для эксперимента еще что-нибудь автоматизировать, кому надо обращайтесь
Зайдите в VBA в кореле, вставте модуль (insert module) и скопируете слуюущую процедуру:
Sub text_to_curve()
Dim s As Shape
For i = 1 To ActiveDocument.Pages.Count
For Each s In ActiveDocument.Pages(i).Shapes.FindShapes(, cdrTextShape)
s.ConvertToCurves
Next s
Next i
MsgBox ("Готово")
End Sub
Могу для эксперимента еще что-нибудь автоматизировать, кому надо обращайтесь
Здорово!
Вот что хотел бы узнать:
1. Иногда бывает нужно задать ряду объектов одинаковые размеры.
Обычно вбиваются размеры Property bar выделяем след. Ctrl+R и т.д.
2. Либо увеличить все объекты на определенный процент.
Вбить только здесь Arrange/ Transformation/ Scale (др. 3 панели работают по другому)
выделяем след. (или Tab) Ctrl+R и т.д.
3. Текст надо разделить на отдельные слова.
Он с начало на абзацы делит потом на строки и потом только на слова.
Причем каждую строку придется по отдельности выбирать.
Если в строке 1 слово он её по буквам поделит.
Хотел через <b>Replase text пробелы на абзацы поменять</b>, но как не понял.
4. Мне не хватало (раньше фотки печатал)
импортнул объекты оптом за край листа
автоматизировать Tab/ P/ Page Down и т.д.
потом в принтерном диалоге разложил (сколько на листе) и печать.
4.1 Или че-то на мастер слое лежит (сразу заблокировал), а имена или другие данные за пределом листа Tab/ P (или лучше ещё с Offset, вообщем выравнивание какое-нибудь может по координатам, центру координат, направляющей) / Page Down и т.д.
Вот что хотел бы узнать:
1. Иногда бывает нужно задать ряду объектов одинаковые размеры.
Обычно вбиваются размеры Property bar выделяем след. Ctrl+R и т.д.
2. Либо увеличить все объекты на определенный процент.
Вбить только здесь Arrange/ Transformation/ Scale (др. 3 панели работают по другому)
выделяем след. (или Tab) Ctrl+R и т.д.
3. Текст надо разделить на отдельные слова.
Он с начало на абзацы делит потом на строки и потом только на слова.
Причем каждую строку придется по отдельности выбирать.
Если в строке 1 слово он её по буквам поделит.
Хотел через <b>Replase text пробелы на абзацы поменять</b>, но как не понял.
4. Мне не хватало (раньше фотки печатал)
импортнул объекты оптом за край листа
автоматизировать Tab/ P/ Page Down и т.д.
потом в принтерном диалоге разложил (сколько на листе) и печать.
4.1 Или че-то на мастер слое лежит (сразу заблокировал), а имена или другие данные за пределом листа Tab/ P (или лучше ещё с Offset, вообщем выравнивание какое-нибудь может по координатам, центру координат, направляющей) / Page Down и т.д.
спасибо...всё работает...
жаль конечно...что текст курвится...только на странице...
а вне страницы...не курвится...т.е. то что находится на Десктопе не курвится...
и ещё не курвится текст на мастер слое...
если есть возможность доработать макрос, был бы очень благодарен...
цены бы такому макросу не было...
ещё раз спасибо...
жаль конечно...что текст курвится...только на странице...
а вне страницы...не курвится...т.е. то что находится на Десктопе не курвится...
и ещё не курвится текст на мастер слое...
если есть возможность доработать макрос, был бы очень благодарен...
цены бы такому макросу не было...
ещё раз спасибо...
всё работает..текст курвится...и на странице...и на Десктопе...и на мастер слое...и сгруппированное...и разгруппированное
гы...и даже...в направляющие текст запихал...и тот покурвился..
...супер...теперь им всегда пользоваться буду...
спасибо огромное...
P.S. в форум...rudtp отписаться не могу...т.к. времени нет разбираться с регистрацией...
гы...и даже...в направляющие текст запихал...и тот покурвился..
...супер...теперь им всегда пользоваться буду...
спасибо огромное...
P.S. в форум...rudtp отписаться не могу...т.к. времени нет разбираться с регистрацией...