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

http://r.photo.store.qq.com/psb?/V13ehsGq3rwVZN/newOxJgsg7qKrvpZiMjE.4yWd9FmZ3D6y*Hx8EYzQQQ!/o/dLy0EXAtEAAA&ek=1&kp=1&pt=0&bo=AASAAqAFhAMDAIE!&su=1121621089&sce=0-12-12&rf=2-9

接下来点击PowerPoint2013的”开发工具“选项卡，点击”Visual Basic“，这时会弹出VBA编辑器，如图2所示。
http://r.photo.store.qq.com/psb?/V13ehsGq3rwVZN/JuDXojPbiEv8FjfIneK7TYtdrZszH*b37yZ5ulsR4C4!/o/dLpBrXA*EgAA&ek=1&kp=1&pt=0&bo=AASAAqAFhAMDAIE!&su=1139938481&sce=0-12-12&rf=2-9

然后点击”插入“菜单，选择其中的”类模块“，然后在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运行即可。
http://r.photo.store.qq.com/psb?/V13ehsGq3rwVZN/iRAIivUKvScYO.yWDQBiqnO26BZ8wHuFIJxLZvaBzTc!/o/dBkOoHa3MgAA&ek=1&kp=1&pt=0&bo=AASAAqAFhAMDAIE!&su=183070561&sce=0-12-12&rf=2-9

这时我们可以看到每页幻灯片的备注页上都有”荣老师的课堂笔记“字样。 
http://r.photo.store.qq.com/psb?/V13ehsGq3rwVZN/zikKFDBbm8UEL3eFyR7kzXJta*6WGPjVe.9jV*aC.x8!/o/dJ0VCXaVRgAA&ek=1&kp=1&pt=0&bo=AASAAqAFhAMDAIE!&su=1171425921&sce=0-12-12&rf=2-9

VBA代码解读：
ActivePresentation：当前.ppt文件
Slides：当前ppt文件的所有幻灯片集合
Slides.Count属性： 获得幻灯片数量
Slides.Item()方法：遍历每个幻灯片
NotesPage:当前幻灯片的正文区域和备注区域；
Shapes:获得当前幻灯片中所有图形对象（如文本框等）
Placeholders:所有的占位符
Placeholders（2）第二个占位符，即备注页
TextFrame：备注页的文本框
TextRange：文本框中的文字对象
TextRange.Text:文字对象的内容属性。