【尚未解决】如何自动获取PPT的总页数

CheryBTL · 发表于 2011-9-6 21:12

本帖最后由 CheryBTL 于 2011-9-7 17:24 编辑

如何像设置PPT页码设置一样的方法，确定PPT的总页数。
在PPT上加上第X页/共X页的效果！

这个问题有好长时间了，现在都是在编辑完后，输入在PPT模版中的，不知道有没有自动获取的办法？

guojianlin1985 · 发表于 2011-9-6 21:55

路过等着学习，

CheryBTL · 发表于 2011-9-12 22:43

顶一个，高手来关注下呀～～～～

xxbb77 · 发表于 2011-9-13 16:12

在ppt模板中点插入幻灯片编号即可

CheryBTL · 发表于 2011-9-13 21:32

xxbb77 发表于 2011-9-13 16:12
在ppt模板中点插入幻灯片编号即可

这个只是相当于页数的页码编号，我需要的是：PPT的总页数

coolish97 · 发表于 2011-9-18 23:01

帮顶，等学

Steel0829 · 发表于 2012-9-18 15:42

以前在2003版时，可以在母板中输入#/50 (50是总页数，需要手工输入）不能自动计数

小西柚 · 发表于 2012-10-10 15:02

请问这个问题解决了吗？我想知道怎么实现的。

lk710618 · 发表于 2017-6-21 16:50

期待有解，期待斑竹出手

zhshspark · 发表于 2017-7-14 11:26

微软网站上的大神们也讨论了这个问题，目前没有特别好的方案，只有VBA，
我试了一下，可以的
Sub AddHeaderFooter()

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

SlideTotal = .Slides.Count

For i = 1 To SlideTotal
      If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
         VisibleSlides = 1 + VisibleSlides
      End If
Next

For i = 1 To SlideTotal
      If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
         SlideNum = 1 + SlideNum
         .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
         .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
      Else
         .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
      End If
Next
End With

End Sub

		自动登录	找回密码
密码			免费注册

[求助] 【尚未解决】如何自动获取PPT的总页数

点评