启明办公

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 94|回复: 20

Powerpoint如何设置默认粘贴文本

[复制链接]

2

主题

4

帖子

8

积分

新手上路

Rank: 1

积分
8
发表于 2022-12-14 07:32:56 | 显示全部楼层 |阅读模式
问题

有一位朋友提问,他经常往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
回复

使用道具 举报

1

主题

7

帖子

6

积分

新手上路

Rank: 1

积分
6
发表于 2022-12-14 07:33:11 | 显示全部楼层
!!!好文章多多学习[赞]
回复

使用道具 举报

3

主题

7

帖子

14

积分

新手上路

Rank: 1

积分
14
发表于 2022-12-14 07:33:29 | 显示全部楼层
我就是那位朋友,哈哈哈
回复

使用道具 举报

0

主题

5

帖子

6

积分

新手上路

Rank: 1

积分
6
发表于 2022-12-14 07:34:21 | 显示全部楼层
顺便感叹美国论坛08年就有这个讨论了,中文全网找了很久没找到
回复

使用道具 举报

0

主题

8

帖子

11

积分

新手上路

Rank: 1

积分
11
发表于 2022-12-14 07:34:28 | 显示全部楼层
老外对这些东西钻研很深的,很细的问题也会有人讨论。另外,会搜索,特别是外文搜索,是个很重要的能力[大笑]
回复

使用道具 举报

1

主题

5

帖子

8

积分

新手上路

Rank: 1

积分
8
发表于 2022-12-14 07:35:01 | 显示全部楼层
谢谢你给我提供素材[大笑]
回复

使用道具 举报

0

主题

6

帖子

7

积分

新手上路

Rank: 1

积分
7
发表于 2022-12-14 07:35:19 | 显示全部楼层
请问一下,在第3步插入模块过程中只有上面三行,没有第四行的那些是什么情况呀
回复

使用道具 举报

0

主题

8

帖子

10

积分

新手上路

Rank: 1

积分
10
发表于 2022-12-14 07:35:59 | 显示全部楼层
能截个图吗?
回复

使用道具 举报

1

主题

3

帖子

5

积分

新手上路

Rank: 1

积分
5
发表于 2022-12-14 07:36:13 | 显示全部楼层
哥,太强了[赞同]
回复

使用道具 举报

2

主题

6

帖子

7

积分

新手上路

Rank: 1

积分
7
发表于 2022-12-14 07:37:10 | 显示全部楼层
谢谢你,已经搞定啦[思考][大笑]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|启明办公

Copyright © 2001-2013 Comsenz Inc.Template by Comsenz Inc.All Rights Reserved.

Powered by Discuz!X3.4

快速回复 返回顶部 返回列表