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

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

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

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

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

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

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

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

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

вот добрый человечище 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

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

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

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

первый скрипт был для ХЗ
вот добрая подача Fog_patch-а для 11 корела. проверил - работает тока в путь - не нарадуюсь и не наспасибкуюсь!

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

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)
Set t = s.Text
t.Story.Replace st, cdrLanguageNone
Else
MsgBox "Error! Select text", vbInformation
Exit Sub
End If
End If
End Sub

штука офигительная
суется в Tools>VisualBasic>VisualBasicEditor в CorelMacros
далее в Tools > Customization > Customization > Commands > Macros (рядом с биноклем) > {название подгруппы макросов куда вставили) > PastWithoutFormating берем вкладку ShortcutKeys и присваиваем ему ctrl-shift-v
наслаждаемся