在 PowerPoint 2007 中插入幻灯片总数

Question

是否可以将 PowerPoint 演示文稿中的幻灯片总数插入脚注中？我正在寻找一种自动化的方式。

当然，我可以编辑页脚并手动放入，但是如果我增加/减少幻灯片，则需要对其进行调整。而这是我们总是忘记的事情。

Microsoft的帮助解释了如何手动执行此操作。我不敢相信 PowerPoint 没有它...

Answer 1

这基本上是pwrpntuser的代码扩展到完整的可执行指南。

创建宏

1. 在 PowerPoint 2007 和更新版本中，请确保将演示文稿保存在.pptm扩展名下（允许使用宏的标准演示文稿）。

2. 确保您已使用本文^{1 中}描述的方法添加了幻灯片编号。

3. 打开“宏”窗口²。在 PowerPoint 2007 和更新版本中，单击View选项卡（最后一个），然后Macro单击最后一个工具栏组中的按钮。在早期版本中，Tools > Macro从菜单中选择。

4. 为您的宏输入一个名称（比如PageCountUpdater），然后单击Create。

5. 在和之间粘贴宏代码（来自pwrpntuser的回答或以下）。将最缩进的行更改为lang 中的任何类似内容。Sub PageCountUpdater()End Subvanof

6. 保存宏并关闭 Microsoft Visual Basic for Applications。返回到 PowerPoint。

你完成了。要插入的代码（完整并带有更正的“胶水字”）：

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

执行宏

1. 再次打开“宏”窗口。

2. 选择保存的PageCountUpdater宏并点击Run。

您每次都必须手动执行此操作。键盘快捷键将是最受欢迎的。但是...没有办法改变PowerPoint的快捷方式，除了购买商业插件，你必须支付每台电脑20美元起的价格。见结束本或本文章的详细信息。

删除宏

此宏仅在您需要时运行。它不是实时宏。它使用实际幻灯片计数更新字段，仅此而已。字段本身是一个标准的文本字段。没有魔法。这意味着，您可以轻松地将文件转换回.pptx并丢弃此宏，一旦您确定您的演示文稿已完成并且您将不再向其中添加幻灯片。删除宏后，字段将保留在其值不变的位置。

这很舒服，因为许多用户不喜欢带有宏的文档，而且许多演示场所、展览会、会议等根本不会让您运行.pptm文件。

这也很好，因为这个宏会在所有幻灯片上重新创建编号字段（标题除外 - 请参阅末尾的脚注 1），即使您手动删除它们也是如此。因此，您应该最后一次运行它，在您确定幻灯片的最终数量和顺序之后，您就可以将其删除。

打开启用宏的文件

如果您决定将.pptm扩展程序和宏保留在里面，您将始终在禁用宏的情况下打开此文档，并且每次都必须单击Enable macros（如果您在默认设置下运行）以启用它们。

如果文档是您自己的，您相信它们不包含恶意代码并且它们都存储在一个安全的位置（即不在某个临时或共享文件夹中），您可以更改每个 Office 程序设置以使这些文件始终以启用宏。

最简单的方法是添加带有启用宏的演示文稿的文件夹，以保护 PowerPoint 中的位置。

去做这个：

1. 单击File选项卡、Options按钮、Trust Center部分和Trust Center Settings按钮。

2. 转到Trusted locations部分（第二部分）并单击Add new location...按钮。

3. 将文件夹路径粘贴或选择到Path字段中，并可选择检查添加位置中的所有子文件夹是否也应被视为受信任。

4. 单击OK三次以确认并关闭所有打开的窗口。重新打开启用宏的文档。

从现在开始，从刚刚添加的位置打开的所有文档都不应显示任何警告，并且应始终在启用宏的情况下打开。您可以在此 Office.com 支持文档 中找到有关此问题的更多详细信息。

脚注

¹ _{在大多数版本的 PowerPoint 中，含义标题幻灯片不是确定为演示文稿中的第一张幻灯片，而是确定为任何样式为标题幻灯片的幻灯片。插入新幻灯片时，您可以看到不同的幻灯片类型。这意味着，如果您没有将幻灯片设置为标题样式，则所有幻灯片都会添加页码。相反——如果您在演示文稿中使用了许多标题幻灯片，例如标记不同的部分或块，您将在所有部分或块上丢失编号。}

² _{所有 GUI 元素的名称都是从我的 PowerPoint 2010 波兰语版即时翻译而来的。在 PowerPoint 的其他版本或语言版本中，它们可能略有不同。相应调整。}

Answer 2

首先确保每张幻灯片都有一个正常的幻灯片编号。然后添加一个模块，插入以下代码并按 F5（开始）。

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

Answer 3

如果您正在寻找一种选项或配置设置，可以自动将其添加到您创建的每个演示文稿中，那么没有这样的选项或配置设置。但是，如果您编辑页眉或页脚，则可以自动在其中添加幻灯片编号并让它们显示在所有幻灯片上。

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx