ppt的无格式粘贴代码怎么写呢？

请问：ppt的无格式粘贴vba代码怎么写呢，我现在在做一个ppt，要粘贴很多东西，每次都是点选择性粘贴->无格式文本，粘的手都疼了，请问有没有类似word中的无格式粘贴代码呢？我把word的代码弄到ppt中，不管用哈

就是这一段代码哈

Sub 选择性粘贴()

Selection.PasteAndFormat Type:=wdFormatPlainText '粘贴为无格式的纯文本文字

End Sub

查查ppt的vba帮助看看，我会写一点ExcelVBA，PPT的还不会，应该就是个对象模型和内置常量的区别。

宏代码如下：
Application.ActiveWindow.Selection.TextRange.PasteSpecial ppPasteText