新浪博客

在PowerPoint演示文稿的备注页中批量添加相同内容

2015-03-03 20:38阅读：

http://blog.sina.cn/dpool/blog/u/2269690624

昨天有同事问：如何在PowerPoint的演示文档的每一页幻灯片的备注页上添加相同的内容？
开始尝试了PowerPoint的“备注母版”功能，发现没法解决，于是“祭出了”VBA编程工具，问题终于得到解决。
首先在PowerPoint2013的“文件”->“选项”->“自定义功能区”里勾选”开发工具“，如图1所示。
图片
接下来点击PowerPoint2013的”开发工具“选项卡，点击”Visual Basic“，这时会弹出VBA编辑器，如图2所示。
图片

然后点击”插入“菜单，选择其中的”类模块“，然后在VBA编辑器里输入如下VBA代码：
Sub SlideNotesPageAdd()

Dim SlideCount As Integer

SlideCount = ActivePresentation.Slides.Count

Dim i As Integer
For i = 1 To SlideCount
ActivePresentation.Slides.Item(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = '荣老师的课堂笔记：'
Next i

End Sub
如图3所示，然后点击键盘上的F5运行即可。
图片
这时我们可以看到每页幻灯片的备注页上都有”荣老师的课堂笔记“字样。
图片
VBA代码解读：
ActivePresentation：当前.ppt文件
Slides：当前ppt文件的所有幻灯片集合
Slides.Count属性： 获得幻灯片数量
Slides.Item()方法：遍历每个幻灯片
NotesPage:当前幻灯片的正文区域和备注区域；
Shapes:获得当前幻灯片中所有图形对象（如文本框等）
Placeholders:所有的占位符
Placeholders（2）第二个占位符，即备注页
TextFrame：备注页的文本框
TextRange：文本框中的文字对象
TextRange.Text:文字对象的内容属性。

我的更多文章

下载客户端阅读体验更佳

APP专享