Powerpoint如何设置默认粘贴文本

张旗

问题

有一位朋友提问，他经常往PPT里粘贴大段的文字，每次都要选择粘贴方式，有点麻烦，而在WORD中是可以设置默认的粘贴选项的，而且可以针对不同的来源设置不同的粘贴方式，非常方便，可以满足他的需求。


但是在Powerpoint中就没有这样的功能，只有一个“粘贴内容时显示粘贴选项按钮”，无法直接设置默认粘贴选项。


经过一番研究，找到一个实现的方式，虽然不是那么完美，但好歹实现了要求的功能。
解决办法

1. 添加开发工具

打开Powerpoint开发工具选项卡，如果菜单栏上没有这个选项卡，按下面图示找到并显示出来。


2. 在开发工具上选择“Visual Basic”



3. 插入模块

选择当前打开的PPT文件的VBA项目文件，点击右键，选择插入>模块。


4. 输入代码

在打开的模块中输入以下代码：
Sub myPasteSpecial()

    '粘贴为文本
    On Error Resume Next
    ActiveWindow.View.PasteSpecial DataType:=ppPasteText, displayasicon:=msoFalse, link:=msoFalse
   
End Sub5. 将宏添加到自定义快速访问工具栏



6. 设置宏命令图标、名称和位置。

注意：命令在这个列表中的位置对应着后面快捷键的名称，快捷键为Alt+顺序。比如该命令排在第1位，则对应快捷键为“Alt+1”


7. 测试一下

注意：原始对象只能是文本，例如如果是一个文本框，需要选择文本框内的文字，再按Alt+1，直接选择文本框本身不起任用。


参考文章

Solved: How to PasteSpecial Unformatted Text in PP VBA?
How to assign a keyboard shortcut for a powerpoint macro

静默的麦子

！！！好文章多多学习[赞]

曾现伟民

我就是那位朋友，哈哈哈

萝卜坑

顺便感叹美国论坛08年就有这个讨论了，中文全网找了很久没找到

万嘉福朱砂饰品有限公司

老外对这些东西钻研很深的，很细的问题也会有人讨论。另外，会搜索，特别是外文搜索，是个很重要的能力[大笑]

我是五毛

谢谢你给我提供素材[大笑]

落蕊重芳

请问一下，在第3步插入模块过程中只有上面三行，没有第四行的那些是什么情况呀

天晴陪谁散心

能截个图吗？

村头老榨菜

哥，太强了[赞同]

多尼克

谢谢你，已经搞定啦[思考][大笑]