Paste Special... default

[Fog_patch]

Ответ: Paste Special... default

Fog_patch
может подскажешь куда этот умный скриптик вставлять?

Открываешь VBA-Editor (Alt+F11) и вставляешь в любой модуль, например в GlobalMacros
После этого скрипт можно запускать 5-ю способами:
1. Tools > VBA > Play > GlobalMacro > PastWithoutFormating
2. Правой мышью по интерфейсу > выбираем Visual > подсоединяем панель куда-нибудь > Rub VBA Macro > GlobalMacro > PastWithoutFormating
3. Tools > Customization > Customization > Commands > Macros (рядом с биноклем) > Выделяем > GlobalMacro > PastWithoutFormating
а) назначаем шоткат (вкладка Shortcut Keys)
б) вытаскиваем кнопку на поверхность (прям из самого названия скрипта)
4. Запускаем скрипт из самого редактора, предварительно ткнув в любое место моего кода.

 

[xm]

Ответ: Paste Special... default

Fog_patch
не работает (
он вставляет Arial Unicode MS

. не, это какая то абракадабра

. а в другом случае вобще ничего не происходит
да, корел 11

 

[Fog_patch]

Ответ: Paste Special... default

Так и знал что 11-й.
В 11-м до конца не разобрались с юникодом, поэтому функция замены с русским текстом не отрабатывается. С английским разумеется всё Оk.

 

[Fog_patch]

Ответ: Paste Special... default

Вот код для 11-го. Я его даже проверить не могу, т.к. у меня 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

 

[xm]

Ответ: Paste Special... default

мой баг Fog-ушка - версию не сказать (
спасибищща брат - работаит тока в путь!
пошел хвалица

 

[Fog_patch]

Ответ: Paste Special... default

На здоровье

 

[xm]

Ответ: Paste Special... default

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

 

[Fog_patch]

Ответ: Paste Special... default

У Корела по жизни проблема с функцией Show Non-Printing Characters. Он то показывает когда не надо, то не показывает когда надо (чаще второе).

Кстати, если уж зашла речь об Non-Printing Characters. Я удивлен что тебе они «конечно особо не мешают... но все таки...». Мне наоборот они нужны всегда. Как можно без них полноценно работать с текстом? Судя по всему ты с текстом еще по настоящему не работал. Вобщем мой тебе совет — привыкай к хорошему.

 

[xm]

Ответ: Paste Special... default

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