[PowerPoint] 如何自動插入帶有總頁數的數字 | VBA宏

在 PowerPoint 中，我想自動將頁碼和總頁數（例如“5/20”）插入到所有幻燈片的頁腳中。你有沒有想過？

在 PowerPoint 幻燈片頁腳中自動插入頁碼和總頁數

手動設置和更新既耗時又容易出錯。

本文介紹了VBA宏該任務可以通過使用來完成自動化能。主要好處是：(1)可以顯著縮短工作時間，(2)可以在所有幻燈片上可靠地統一符號，(3)可以準確地反映總頁數。是。

在本文中，我們將介紹可以自由定制顯示格式的VBA代碼，並以初學者也易於理解的方式解釋其使用方法和注意事項。

使用宏可以使頁碼管理更加高效和準確。

目錄

從這裡開始，我們將講解自動在頁腳中插入“帶總頁碼的頁碼”的VBA宏的具體用法和執行步驟。

要使用這個宏，您需要提前在 PowerPoint 功能區上顯示“開發人員”選項卡。有。
如果未顯示“開發者”選項卡，請先準備好。」）。

如果你準備好了的話，步驟大致可以分為(1) 在幻燈片上放置頁腳，(2) 安裝 VBA 代碼，(3) 執行宏，成為。

步打開 PowerPoint 幻燈片並單擊“插入”選項卡

首先，確保所有幻燈片都可以使用頁腳（通常是頁面底部的顯示區域），VBA 宏將在其中插入頁碼。

從 PowerPoint 屏幕頂部的菜單（稱為功能區）單擊“插入”選項卡請。

如何使用和執行自動插入數字和總頁數的VBA宏步驟1打開PowerPoint幻燈片並單擊“插入”選項卡

步單擊“頁眉和頁腳”按鈕

接下來，在“插入”選項卡中，單擊“頁眉和頁腳”按鈕並打開可以對幻燈片編號和頁腳進行設置的屏幕。

如果PowerPoint中的功能區折疊起來難以操作，請參考《【PowerPoint】如何始終顯示功能區（菜單欄）| 兼容桌面版和網頁版。”並將功能區切換為始終可見。

如何使用和執行自動插入帶有總頁碼的數字的VBA宏第2步單擊“頁眉和頁腳”按鈕

步選中“頁腳”並單擊“應用到全部”按鈕

單擊“頁眉和頁腳”按鈕，將打開標有“頁眉和頁腳”的窗口。

在此窗口中，首先，VBA 宏稍後將寫入頁碼。檢查“頁腳”請。
這將啟用演示文稿中每張幻燈片的頁腳區域。

接下來，要將此設置應用於所有幻燈片，請單擊屏幕底部的按鈕。單擊“應用到全部”按鈕我會。

如何使用和執行自動插入總頁數的VBA宏第3步選中“頁腳”並單擊“應用到全部”按鈕

步單擊“開發”選項卡

單擊“應用到全部”按鈕可將其應用到演示文稿中的所有幻燈片。頁腳現在可見。 （頁腳中的特定文本稍後將使用 VBA 宏進行設置。）

現在頁腳已準備就緒，讓我們設置 VBA 宏。單擊“開發”選項卡請。

如果“開發者”選項卡未顯示，請先準備好（請參閱“[PowerPoint]如何顯示開發者選項卡|初學者也能做到的4個簡單步驟”）」）。

如何使用和執行自動插入帶有總頁數的VBA宏第4步單擊“開發”選項卡

步單擊“Visual Basic”按鈕

接下來，在“開發人員”選項卡中，單擊“Visual Basic”按鈕並打開 VBA 編輯器 (VBE)，這是一個用於編輯宏代碼的專用屏幕。

如何使用和執行自動插入帶有總頁數的VBA宏第5步單擊“Visual Basic”按鈕

步找到文件名，右鍵單擊，將光標移動到“插入（N）”，然後單擊“標準模塊（M）”

接下來，我們添加一個“標準模塊”來放置 VBA 代碼。

在 VBA 編輯器 (VBE) 屏幕左側的“項目”窗口中，選擇文件名（例如VBA Project (プレゼンテーション)）並右鍵單擊請。

從接下來出現的菜單中將光標移動到“插入（N）”並單擊展開列表中的“標準模塊（M）”。請。

如何使用和執行自動插入數字和總頁數的VBA宏第六步找到文件名並右鍵單擊它，將光標移動到“插入（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 宏步驟 7 將宏的完整 VBA 代碼粘貼到代碼窗口中

步單擊“宏”按鈕

粘貼完整個 VBA 代碼後，從 VBE（VBA 編輯器）窗口返回到 PowerPoint 主窗口（顯示幻燈片的屏幕）。

接下來，單擊功能區上的“開發人員”選項卡，然後單擊單擊“宏”按鈕請。

如何使用和執行自動插入帶有總頁數的VBA宏第8步單擊“宏”按鈕

步選擇“InsertSlideCount_Customizable”並單擊“運行”

單擊“宏”按鈕時，將打開一個名為“宏”的對話框（窗口），顯示可以執行的宏列表。

在其中選擇“InsertSlideCount_Customizable”並單擊“運行”請。

如果更改 VBA 代碼的 Sub 行中的宏名稱，此處顯示的名稱也會更改。通常為“InsertSlideCount_Customizable”。

如何使用和執行自動插入帶有總頁碼的數字的VBA宏第9步選擇“InsertSlideCount_Customizable”並單擊“運行”

步單擊“確定”按鈕

宏運行完畢後，將出現一條完成通知，顯示“嘗試更新 X 張幻燈片的頁腳”。留言框將顯示。 （X部分是實際的幻燈片總數。）

檢查內容後，單擊“確定”按鈕並關閉該消息框。

如何使用和執行自動插入帶有總頁數的VBA宏第10步單擊“確定”按鈕

步確保在所有幻燈片的頁腳中插入頁碼和總頁數。

現在您可以運行宏並檢查消息框。

最後，打開每張 PowerPoint 幻燈片並仔細檢查頁腳是否以您想要的（或自定義的）格式正確顯示頁碼和總頁數。

如何使用和執行自動插入包含總頁數的數字的 VBA 宏 步驟 11 確保包含總頁數的頁碼已插入到所有幻燈片的頁腳中。

如何自定義顯示格式

此 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 相關文章。請看一下。