[PowerPoint] 如何自动插入带有总页数的数字 | VBA宏

Eva

2025-05-11

在 PowerPoint 中，我想自动将页码和总页数（例如“5/20”）插入到所有幻灯片的页脚中。你有没有想过？

在 PowerPoint 幻灯片页脚中自动插入页码和总页数

手动设置和更新既耗时又容易出错。

本文介绍了VBA宏该任务可以通过使用来完成自动化能。主要好处是：(1)可以显着缩短工作时间，(2)可以在所有幻灯片上可靠地统一符号，(3)可以准确地反映总页数。是。

在本文中，我们将介绍可以自由定制显示格式的VBA代码，并以初学者也易于理解的方式解释其使用方法和注意事项。

使用宏可以使页码管理更加高效和准确。

从这里开始，我们将讲解自动在页脚中插入“带总页码的页码”的VBA宏的具体用法和执行步骤。

要使用这个宏，您需要提前在 PowerPoint 功能区上显示“开发人员”选项卡。有。
如果未显示“开发者”选项卡，请先准备好。」）。

如果你准备好了的话，步骤大致可以分为(1) 在幻灯片上放置页脚，(2) 安装 VBA 代码，(3) 执行宏，成为。

步打开 PowerPoint 幻灯片并单击“插入”选项卡

首先，确保所有幻灯片都可以使用页脚（通常是页面底部的显示区域），VBA 宏将在其中插入页码。

从 PowerPoint 屏幕顶部的菜单（称为功能区）单击“插入”选项卡请。

步单击“页眉和页脚”按钮

接下来，在“插入”选项卡中，单击“页眉和页脚”按钮并打开可以对幻灯片编号和页脚进行设置的屏幕。

如果PowerPoint中的功能区折叠起来难以操作，请参考《【PowerPoint】如何始终显示功能区（菜单栏）| 兼容桌面版和网页版。”并将功能区切换为始终可见。

步选中“页脚”并单击“应用到全部”按钮

单击“页眉和页脚”按钮，将打开标有“页眉和页脚”的窗口。

在此窗口中，首先，VBA 宏稍后将写入页码。检查“页脚”请。
这将启用演示文稿中每张幻灯片的页脚区域。

接下来，要将此设置应用于所有幻灯片，请单击屏幕底部的按钮。单击“应用到全部”按钮我会。

步单击“开发”选项卡

单击“应用到全部”按钮可将其应用到演示文稿中的所有幻灯片。页脚现在可见。（页脚中的特定文本稍后将使用 VBA 宏进行设置。）

现在页脚已准备就绪，让我们设置 VBA 宏。单击“开发”选项卡请。

如果“开发者”选项卡未显示，请先准备好（请参阅“[PowerPoint]如何显示开发者选项卡|初学者也能做到的4个简单步骤”）」）。

步单击“Visual Basic”按钮

接下来，在“开发人员”选项卡中，单击“Visual Basic”按钮并打开 VBA 编辑器 (VBE)，这是一个用于编辑宏代码的专用屏幕。

步找到文件名，右键单击，将光标移动到“插入（N）”，然后单击“标准模块（M）”

接下来，我们添加一个“标准模块”来放置 VBA 代码。

在 VBA 编辑器 (VBE) 屏幕左侧的“项目”窗口中，选择文件名（例如VBA Project (プレゼンテーション)）并右键单击请。

从接下来出现的菜单中将光标移动到“插入（N）”并单击展开列表中的“标准模块（M）”。请。

步将整个宏 VBA 代码粘贴到代码窗口中

当选择“标准模块（M）”时，VBE（VBA编辑器）右侧将显示一个代码窗口（用于输入文本的空白区域）。

其中有以下几项复制并粘贴整个宏 VBA 代码请。

Sub InsertSlideCount_Customizable()
    
    '=================================================================
    ' ★ フッター書式設定 ★
    ' 下の行のダブルクォーテーション(")内のテキスト形式を編集してください。
    ' [Page] が現在のスライド番号に、[Total] が総スライド数に置き換わります。
    Const FOOTER_FORMAT As String = "スライドナンバー [Page] / [Total]"
    ' 例1: "ページ [Page] / [Total]"
    ' 例2: "[Page] / [Total]"
    ' 例3: "資料 P.[Page]" (総数は不要な場合)
    '=================================================================

    Dim sld As Slide
    Dim totalSlides As Long
    Dim formattedText As String ' 各スライド用に整形されたテキストを格納
    
    ' アクティブなプレゼンテーションが存在するか確認
    If ActivePresentation Is Nothing Then
        MsgBox "処理対象のプレゼンテーションが開かれていません。", vbExclamation
        Exit Sub
    End If
    
    ' スライドが存在するか確認
    If ActivePresentation.Slides.Count = 0 Then
        MsgBox "プレゼンテーションにスライドがありません。", vbInformation
        Exit Sub
    End If

    totalSlides = ActivePresentation.Slides.Count
    
    ' 各スライドをループ処理
    For Each sld In ActivePresentation.Slides
        
        ' --- エラー処理開始 ---
        On Error Resume Next
        
        ' フッターが存在し、かつ表示されている場合のみ処理を実行
        If sld.HeadersFooters.Footer.Visible = msoTrue Then
            ' エラー状態を一旦クリア
            Err.Clear
            
            ' ★定義された書式テンプレートを元に、実際のテキストを生成★
            formattedText = FOOTER_FORMAT ' まずテンプレートを代入
            formattedText = Replace(formattedText, "[Page]", sld.SlideIndex) ' [Page]を現在の番号に置換
            formattedText = Replace(formattedText, "[Total]", totalSlides)  ' [Total]を総スライド数に置換
            
            ' フッターテキストを設定
            sld.HeadersFooters.Footer.Text = formattedText
        End If
        
        ' --- エラー処理終了 ---
        On Error GoTo 0
        
    Next sld
    
    ' 完了メッセージ (任意)
    MsgBox totalSlides & "枚のスライドについて、フッターの更新処理を試みました。", vbInformation
    
End Sub

步单击“宏”按钮

粘贴完整个 VBA 代码后，从 VBE（VBA 编辑器）窗口返回到 PowerPoint 主窗口（显示幻灯片的屏幕）。

接下来，单击功能区上的“开发人员”选项卡，然后单击单击“宏”按钮请。

步选择“InsertSlideCount_Customizable”并单击“运行”

单击“宏”按钮时，将打开一个名为“宏”的对话框（窗口），显示可以执行的宏列表。

在其中选择“InsertSlideCount_Customizable”并单击“运行”请。

如果更改 VBA 代码的 Sub 行中的宏名称，此处显示的名称也会更改。通常为“InsertSlideCount_Customizable”。

步单击“确定”按钮

宏运行完毕后，将出现一条完成通知，显示“尝试更新 X 张幻灯片的页脚”。留言框将显示。（X部分是实际的幻灯片总数。）

检查内容后，单击“确定”按钮并关闭该消息框。

步确保在所有幻灯片的页脚中插入页码和总页数。

现在您可以运行宏并检查消息框。

最后，打开每张 PowerPoint 幻灯片并仔细检查页脚是否以您想要的（或自定义的）格式正确显示页码和总页数。

如何自定义显示格式

此 VBA 代码的有用点之一是您可以轻松更改页脚中显示的页码的文本格式（外观）。

即使没有特殊的编程知识，您也可以通过简单地重写代码的特定部分来根据自己的喜好调整显示格式。

在稍后将粘贴到 VBE（VBA 编辑器）的代码开头自定义以下行。

'=================================================================
    ' ★ フッター書式設定 ★
    ' 下の行のダブルクォーテーション(")内のテキスト形式を編集してください。
    ' [Page] が現在のスライド番号に、[Total] が総スライド数に置き換わります。
    Const FOOTER_FORMAT As String = "Slide [Page] / [Total]" 
    ' 例1: "ページ [Page] / [Total]"
    ' 例2: "[Page] / [Total]"
    ' 例3: "資料 P.[Page]" (総数は不要な場合)
'=================================================================

这Const FOOTER_FORMAT As String = "..."在行中双引号 (") 包围的部分是页脚中实际显示内容的模板。

[Page]当宏执行时，字符串当前幻灯片编号将被自动替换。
[Total]当宏执行时，字符串整个演示文稿中的幻灯片总数将被自动替换。

例如，您可以将其重写如下。

"ページ [Page] / [Total]"→ 结果示例：ページ 5 / 20
"[Page] / [Total]"→ 结果示例：5 / 20
"P. [Page] (全[Total]ページ)"→ 结果示例：P. 5 (全20ページ)
"配布資料 [Page]"（如果不需要总数） → 结果示例：配布資料 5

这样，[Page]和[Total]在利用描述的同时/或者ページ），即可实现想要的显示格式。

在将代码粘贴到 VBE 之前，最好将此行修改为您想要的格式。

运行VBA宏之前的注意事项

本文介绍的 VBA 宏是一个有用的工具，如果正确理解和使用它，可以大大简化将页码插入页脚的过程。
但是，如果在不知道其操作特征的情况下执行它，则可能会出现意外的数据覆盖或意外结果。

在这里，我们将详细解释运行宏之前应注意的一些重要事项。

了解更多：[PowerPoint] 如何打印笔记 |兼容桌面版和网页版

主要内容有：现有页脚中输入的内容会发生什么情况？、宏会影响哪些幻灯片？、代码中错误处理的含义，和建议在继续之前进行备份例如，

现有页脚中输入的内容会发生什么情况？

运行此 VBA 宏最大的警告是。

宏是自动用新内容覆盖最初在页脚中输入的文本（例如“幻灯片 5 / 20”），而不检查任何文本我最终做到了。

换句话说，如果您在页脚中手动输入注释或日期，如果您有任何重要信息，当您运行宏时，它将完全消失。

在运行宏之前，请务必检查页脚是否包含重要信息。请。
仅当您不介意它被覆盖时才运行它。

宏会影响哪些幻灯片？

此 VBA 宏通过以下方式插入页码仅当每张幻灯片的页脚设置为“可见”时是。

即使运行宏，也不会处理有意隐藏页脚的幻灯片（例如标题幻灯片），并且不会插入页码。

这是检查页脚显示状态的步骤（在我介绍的VBA代码中）。If sld.HeadersFooters.Footer.Visible = msoTrue Then) 包括在内。
此检查可防止无意写入隐藏页脚。

如果运行宏后，页码没有出现在幻灯片上应出现的位置，则页脚是否设置为“隐藏”？请检查一下。

代码中描述的错误处理的含义

该宏代码包含On Error Resume Next该行指示宏即使在过程中发生错误也继续不停止。

这样，如果有特定的如果在处理幻灯片页脚时出现问题，可以防止整个宏停止。

有问题的幻灯片将自动跳过，并重试剩余的幻灯片。

建议在继续之前进行备份

运行 VBA 宏是一项有用的功能，可以同时更改许多幻灯片的内容，但它也存在产生意外后果的风险。

为了安全起见，请务必在运行宏之前创建您正在处理的 PowerPoint 文件的备份。我们强烈建议您这样做。

万一运行宏的结果不符合预期或出现其他问题，您可以有一个备份文件。可以很容易地恢复到原来的状态因此，它是安全的。

有关如何在 PowerPoint 幻灯片中自动插入总页码的常见问题解答

我们整理了有关如何在 PowerPoint 幻灯片中自动插入页码的常见问题和解答列表。

我有一张幻灯片，即使我已经运行了宏，页码也没有显示在页脚中。为什么？

此宏仅适用于页脚设置为“可见”的幻灯片。
如果您没有看到页码，则幻灯片可能没有页脚或已隐藏。
检查“插入”选项卡上“页眉和页脚”或“幻灯片母版”中的页脚设置。

当我运行宏时，页码仅从中间插入。

对于没有页码的幻灯片，请检查页脚是否放置正确并设置为“显示”。
如果您在创建演示文稿时更改布局或母版，设置可能会变得不一致。

我感觉显示的总页数和实际的幻灯片数不一样。

此宏获取当前打开的演示文稿中的幻灯片总数（包括隐藏的幻灯片）。
如果您需要特殊计算，例如仅计算可见幻灯片，则需要修改 VBA 代码。
首先，请确保幻灯片（包括隐藏幻灯片）的数量与 PowerPoint 上的幻灯片数量相匹配。

执行宏后，页脚的字体大小和字体发生了变化。

该宏仅更新页脚的文本内容；它不会更改字体大小或字体等格式。

我在运行宏一次后添加和删除了幻灯片。页码和总页数会自动更新吗？

不，没有自动更新。
宏在执行时根据幻灯片配置重新编号。
如果更改幻灯片配置，再次运行宏以更新内容必须是。

我添加或删除了幻灯片，因此我想更新页码和总页数。我应该怎么办？

如果您更改演示文稿的内容（幻灯片数量或顺序），请再次运行此宏。
每次，页码和总页数都会以最新状态正确反映在页脚中。

如果我想删除宏插入的所有页码和总页数，该怎么办？

关闭所有页脚显示这是最简单的方法。
打开“插入”选项卡上的“页眉和页脚”，取消选中“页脚”和“应用到全部”。
但请注意，页码以外的信息也将被隐藏。要仅删除页码文本，需要另一个宏或手动操作。

使用此宏显示页码和总数而不是页脚。标头可以显示吗？

是的，这是可能的。在VBA代码中Footer这个词Header您可以通过将其重写为（*文本设置位置和显示状态确认位置）来处理此问题。
但是，要在目标幻灯片上运行它标题设置为“可见”必须是。

是否可以仅在特定部分中对页面进行编号或显示每个部分的总页数？

这里介绍的宏处理整个演示文稿的序列号。
对每个部分进行编号需要对 VBA 代码进行大量修改并进行自定义以处理部分信息。

我想将页码的起始编号设置为 1 以外的值（例如 0 或任何数字）。

宏通常使用从 1 开始的幻灯片编号。
我想更改起始号码如果在你的VBA代码中[Page]要替换的值sld.SlideIndex - 1（从0开始的情况）计算公式如下调整我会。

什么是 VBA 宏？请简单告诉我一下。

编程语言指PowerPoint等Office产品的操作。自动化能编程语言是。
宏它是用VBA编写的一系列自动加工步骤这意味着。
本文介绍了一个自动插入页码的宏。

使用此宏时是否需要更改文件格式（.pptx）？

是的，有必要。宏无法保存为标准 PowerPoint 格式 (.pptx) 文件。
要保存宏，“PowerPoint 启用宏的演示文稿 (*.pptm)”格式请将文件保存为 .
“另存为”时选择文件类型。

该宏可以在网页版或智能手机版 PowerPoint 中使用吗？

不，不，不幸的是PowerPoint 网页版（在线版PowerPoint）或者智能手机/平板电脑版本在应用程序中，不支持VBA宏函数。
因此，该宏不可用。需要桌面版本的 PowerPoint。

PowerPoint的标准页码插入功能和这个宏有什么区别？

使用PowerPoint的标准功能，没有标准的方法可以轻松地在输入页码的同时输入“总页数”。
使用这个VBA宏，您可以轻松地一次性插入和更新“当前页数/总页数”等格式，主要区别和优点是您可以自由自定义显示格式。

其他 PowerPoint 文章

单击此处查看其他 PowerPoint 相关文章。请看一下。