V-Форум / Support по Векторной графике / Тема: Paste Special... default

Paste Special... default

 29/08/2006 0:36:50 #Link

нарисовал табличку
огроменную
расставил в каждую ячейку абракадабру - шрифты-кегли-начертание ("стили" ) как надо.
вставляю текст из ворда, который надо рассортировать по ячейкам.
если из ворда - вставляется тока текст без форматирования - но не удобно прыгать между вордом и корелом.
в документе же корела переносится все форматирование ("стиль" ).
можно ли где-нить галку поставить чтоб при ctrl-v только текст вставлялся, а форматирование данной позиции сохранялось?

Re: Paste Special... default

 29/08/2006 10:14:44 #Link

Я в таких случая делаю таблицу или в Ворде или в Экселе,
выделяю нужный фрагмент, перед копированием нажимаю Шифт, меню "Эдит, Копировать рисунок, Векторный" копирую, а в Кореле - как в названии темы - Пасте специаль и выбираю
расширенный метафайл. И довожу до ума в Кореле.

Re: Paste Special... default

 29/08/2006 12:25:48 #Link

Глеб
забудем про таблицу и конкретный пример

есть текст с кучей залипупистого форматирования
тебе принесли изменения - разные новые слова вставить в разные места.

Re: Paste Special... default

 29/08/2006 13:25:18 #Link

xm Ну тогда - геморрррррр

Re: Paste Special... default

 29/08/2006 20:20:28 #Link

я бы тебе рассказал, как это можно сделать в Иллюстраторе... Если интересно?

А еще попробуй ради интереса открыть прогу InDesign. А потом войди в ворд и скопируй табличку. Вспавь в индезигн - и он не только табличку вставит, а даже шрифты и вордовское форматированиее Оч. удобно

Re: Paste Special... default

 30/08/2006 1:38:29 #Link

Const.Krekov
так я дизайн таблицы в кореле делаю
и еще раз - забыли про таблицу!
про ил рассказывай не помешает - если именно про ЭТО

Re: Paste Special... default

 30/08/2006 2:35:01 #Link

Недавно точно с такой же темой столкнулся. Решил только при помощи ИнДесигна, потом в EPS сохранял и доделывал в Люстре. С корелом - х.з.

Re: Paste Special... default

 30/08/2006 21:43:03 #Link

вот добрый человечище Fog_patch с rudtp .ru помог скриптиком, поклон ему нижайший.

Sub PastWithoutFormating()
Dim MyData As DataObject
Dim s As Shape
Dim st As String

If ActiveShape Is Nothing Then
Exit Sub
Else
If ActiveShape.Type = cdrTextShape Then
Set MyData = New DataObject
Set s = ActiveShape
MyData.GetFromClipboard
st = MyData.GetText(1)
s.Text.Replace s.Text.Story, st, True
Else
MsgBox "Error! Select text", vbInformation
Exit Sub
End If
End If
End Sub

может кто подскажет куда эту полезность вставлять ("у него и спроси" - писать не надо, спросил - пока молчит.)
а написал сюда еще и для того, чтоб похвалиться добростью людей в помощи сирым и убогим. да и просто - самое что нинаесть в тему решение проблемы (если сработает)

Re: Paste Special... default

 30/08/2006 22:48:51 #Link

Не совсекм вник в суть вопроса, но на том же форуме описывалась такая вещица. Посмотрите, может пригодится

Re: Paste Special... default

 30/08/2006 23:01:31 #Link

Адель
"Не совсекм вник в суть вопроса" - а надо бы. смысл тогда отвечать?
дубль 33: забудьте про таблицы!!!!!!!

(1) 2 »