Re: Paste Special... default

Написал xm в 31/08/2006 14:54:08

первый скрипт был для ХЗ
вот добрая подача 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
наслаждаемся