为选中幻灯片标题添加或替换序号的VBA宏开发需求

Hey there! Let's get your slide title numbering macro working properly so it replaces existing (X/Y) suffixes instead of just appending new ones—even when you reorder your slides. Your original code adds the numbering but doesn't handle existing entries, which leads to messy duplicate suffixes when slides are rearranged. Here's the solution:

The Updated VBA Code #

Sub UpdateSlideNumbering()
    Dim shp As Shape
    Dim sld As Slide
    Dim selectedSlides As SlideRange
    Dim totalSlides As Integer
    Dim slideIndex As Integer
    
    ' Set reference to the selected slides
    Set selectedSlides = Application.ActiveWindow.Selection.SlideRange
    totalSlides = selectedSlides.Count
    
    ' Loop through each selected slide in the order they're selected
    For slideIndex = 1 To totalSlides
        Set sld = selectedSlides(slideIndex)
        
        ' Check if the slide has a title shape to avoid errors
        If sld.Shapes.HasTitle Then
            Set shp = sld.Shapes.Title
            Dim titleText As String
            titleText = shp.TextFrame.TextRange.Text
            
            ' Use regex to remove any existing (X/Y) suffix
            Dim regex As Object
            Set regex = CreateObject("VBScript.RegExp")
            regex.Pattern = "\s*\(\d+\/\d+\)$" ' Matches space + (number/number) at end of text
            regex.Global = True
            
            ' Clean up the existing title text
            titleText = regex.Replace(titleText, "")
            
            ' Add the updated numbering suffix
            shp.TextFrame.TextRange.Text = titleText & " (" & slideIndex & "/" & totalSlides & ")"
        End If
    Next slideIndex
    
    ' Clean up objects
    Set selectedSlides = Nothing
    Set shp = Nothing
    Set sld = Nothing
    Set regex = Nothing
End Sub

Key Improvements Explained #

• Regex-based Suffix Removal: The regular expression \s*\(\d+\/\d+\)$ targets and removes any existing (X/Y) suffix (including any leading space) from the title. This ensures we start with a clean title before adding the new numbering.
• Respects Selected Slide Order: Instead of looping through slides by their position in the presentation, we iterate over the selectedSlides range directly. This means if you select slides in a custom order (e.g., slide 3, then 1, then 2), the numbering will follow that selection order.
• Error Prevention: We check if the slide has a title shape with sld.Shapes.HasTitle before modifying it—this stops the macro from crashing if a slide doesn't have a title.

How to Use #

1. Select the slides you want to update (you can select them in any order you want the numbering to follow)
2. Run the UpdateSlideNumbering macro
3. The titles will automatically have their existing numbering replaced with the correct (current/total) format based on your selection

内容的提问来源于stack exchange，提问作者Bartek