Re: Paste Special... default

Написал xm в 30/08/2006 21:43:03

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

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