别的地方粘贴过来的内容会自动带上项目编号

kk870222

别的地方粘贴过来的内容会自动带上项目编号,请问这个如何取消呢.直接复制一段话到ppt中前面会自动带上项目编号.我之前记得将ppt另存为xml格式然后删除个什么之后保存在打开就好了,但是现在忘了,求各位解答一下,谢谢.
宽屏模板V2.rar (87.95 KB, 下载次数: 14)

2014-7-9 19:39 上传

点击文件名下载附件

banjinjiu

先回答你的问题：鼠标进入文本框，“放在大写字母K前”，按BackSpace键，向前删除。
这个宽屏幕是这样的，设置幻灯片的宽度、高度：默认宽度：720，高度,540，这个屏幕宽度：960.25，高度,540.除了vba，我不会设置。

1. Sub GetSlideSize()
   
2.       Dim Width As Single
   
3.       Dim Height As Single
   
4.       With ActivePresentation.PageSetup
   
5.          Width = .SlideWidth
   
6.          Height = .SlideHeight
   
7.       End With
   
8.       MsgBox "幻灯片的宽度是: " & Width '720
   
9.        MsgBox "幻灯片的高度是:" & Height '540
   
10. End Sub

复制代码

只要把代码中的.width或.height改为自己想要的数值就行。

banjinjiu

上个代码中，如果想转换成“英寸”，改width=.SlideWidth / 72,height=.Slideheight/72.
下个代码获取幻灯片大小（英寸为单位） ：

1. Sub SetSlideSize2()
   
2.    ' 这个常数用于把单位设为英寸
   
3.       Const PTS As Byte = 72
   
4.       With ActivePresentation.PageSetup
   
5.          .SlideWidth = 8 * PTS '8英寸
   
6.          .SlideHeight = 6 * PTS
   
7.       End With
   
8. End Sub

复制代码

kk870222

banjinjiu 发表于 2014-7-12 19:04
先回答你的问题：鼠标进入文本框，“放在大写字母K前”，按BackSpace键，向前删除。
这个宽屏幕是这样的， ...

手动删除掉项目编号我知道的,我的意思,从别的txt文档复制一句粘贴过来就会自动条件项目编号.

banjinjiu

kk870222 发表于 2014-7-14 15:37
手动删除掉项目编号我知道的,我的意思,从别的txt文档复制一句粘贴过来就会自动条件项目编号.

我们不能空口说理论，你得把文件传上来，我看看，我又不会猜，即使其中的片段。

kk870222

banjinjiu 发表于 2014-7-14 16:42
我们不能空口说理论，你得把文件传上来，我看看，我又不会猜，即使其中的片段。

附件在一楼呢,麻烦您帮忙给看看,我真是没辙了,重新做一个确实能好,但是我有很多这样的模板.

banjinjiu

通过录制宏发现：
1、你的文本框是本来就带有格式的，不是从下面“绘图”图形中插入的，应该是从原来的大矩形缩小来的。
2、录制宏，正常的图形名称为“Shapes("Text Box 3")”，你的图形名称为“Shapes("矩形 2")”。
3、正常文本框——文本框格式——文本框——自选图形文字换行（打勾），而你的没有。
若无格式，必须从“绘图”中插入。

静言深溪里

选择性粘贴------无格式文本