Paste Special Macro

[Patrick_CH]

I wonder if it is possible to create/record a macro to
Paste Special unformatted text. I tried it via the Record
Macro function, but without success...

 

[Shyam Pillai]

Patrick,
You haven't mentioned the version of PowerPoint. It's straightforward in PPT
2002 and later.

ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.PasteSpecial(ppPasteText)
or
ActiveWindow.Selection.TextRange.PasteSpecial(ppPasteText)
-
Regards
Shyam Pillai

Secure Pack: http://www.mvps.org/skp/securepack/

 

[Guest]

Shyam,

Thanks for your answer! The version of Powerpoint I am
using is 2000 and when I try your lines, I get a message
saying: Compile error: Method or data member not found,
highlighting "PasteSpecial". Is there a workaround?

Regards
Patrick

 

[Shyam Pillai]

In PPT 2000 you have two choices:
Either set a reference to the Microsoft Forms 2.0 object library (Tools |
References...) and then run this code:

Dim oCB As DataObject
Set oCB = New MSForms.DataObject
oCB.GetFromClipboard
ActiveWindow.Selection.TextRange = oCB.GetText

or use the function GetClipboardDataAsString() on the following page:
http://www.vbaccelerator.com/home/VB/Tips/Read_A_Custom_Clipboard_Format/article.asp
by invoking as follows.

ActiveWindow.Selection.TextRange = GetClipboardDataAsString(0,1)