Re: Paste Special... default
31/08/2006 14:54:08
#Link
первый скрипт был для ХЗ
вот добрая подача 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
наслаждаемся
Re: Paste Special... default
01/09/2006 3:52:16
#Link
Пасибо.. Проверим.
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=3410&start=10