在回答这个问题之前，首先让我们来确认一些相关名词的涵义： slide ：泛指幻灯片，在 powerpoint 演示文稿中指每一页独立的幻灯片 ( slide ) ppt ：powerpoint 软件的一种文件格式. 将各页中零散的参考文献 集中到最后一页 并自动编号 找到当前 ppt 文件中所有具有 指定名称 的文本框（认为它们是专门用来填写参考文献的），收集其中的参考文献信息（每行对应一条）. Sub addslidenumbers() dim sld as slide dim totalslides as integer totalslides = activepresentation.slides.count for each sld in activepresentation.slides.
Sub Addslidenumbers() Dim Sld As Slide Dim Totalslides As Integer Totalslides = Activepresentation.slides.count For Each Sld In Activepresentation.slides.
Sub Addslidenumbers() Dim Sld As Slide Dim Totalslides As Integer Totalslides = Activepresentation.slides.count For Each Sld In Activepresentation.slides.
