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

yes5210

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

2016-4-12 13:34 上传

点击文件名下载附件

user_hrfgp

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

• Sub GetSlideSize()
  
•       Dim Width As Single
  
•       Dim Height As Single
  
•       With ActivePresentation.PageSetup
  
•          Width = .SlideWidth
  
•          Height = .SlideHeight
  
•       End With
  
•       MsgBox "幻灯片的宽度是: " & Width '720
  
•        MsgBox "幻灯片的高度是:" & Height '540End Sub
  

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

user_mfmzh

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

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

复制代码

user_xcafv

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

takashi79

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

user_tpjwfwfg

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

栳蔢至仧

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

545445

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