Ajouter une numérotation auto au sein même d'une diapositive

C'est réalisable, je vous demande un peu de temps pour réécrire les macros.

Me voilà de nouveau. Je vous adresse trois nouvelles macros. AjouterRG000SansIncrementation() qui va vous permettre de remettre le PPS que vous avez modifié uniquement avec des RG000. Une seconde NumeroterRG000() qui va permettre de renuméroter tous les RG rencontrés. Et une troisième RemettreEnRG000() tous les RG d'un  PPS.

Il faut donc modifier le code pour insérer uniquement des RG000 partout avec une nouvelle macro comme ceci :

Sub AjouterRG000SansIncrementation()
    Dim diapo As Slide
    Dim shape As shape
    Dim zoneDeTexte As shape
    Dim nouvelleLigne As String
    Dim texteActuel As String
    
    ' Préfixe constant "RG000"
    Dim prefix As String
    prefix = "RG000"
    
    ' Boucle à travers chaque diapositive de la présentation
    For Each diapo In ActivePresentation.Slides
        ' Boucle à travers chaque forme (shape) de la diapositive
        For Each shape In diapo.Shapes
            ' Vérifie si la forme est une zone de texte
            If shape.HasTextFrame Then
                If shape.TextFrame.HasText Then
                    ' Sépare chaque paragraphe (ligne) dans la zone de texte
                    For i = 1 To shape.TextFrame.TextRange.Paragraphs.Count
                        ' Récupère le texte actuel du paragraphe
                        texteActuel = shape.TextFrame.TextRange.Paragraphs(i).Text
                        
                        ' Formate la nouvelle ligne avec "RG000"
                        nouvelleLigne = prefix & " : " & texteActuel
                        
                        ' Remplace l'ancien texte par le nouveau texte avec "RG000"
                        shape.TextFrame.TextRange.Paragraphs(i).Text = nouvelleLigne
                    Next i
                End If
            End If
        Next shape
    Next diapo
End Sub

Ensuite, il suffit de réécrire une macro pour remplacer tous les RG000 rencontré dans le document, et les numérotant de RG001 à ...

Sub NumeroterRG000()
    Dim diapo As Slide
    Dim shape As shape
    Dim compteur As Integer
    Dim prefix As String
    Dim texteActuel As String
    
    ' Initialisation du compteur
    compteur = 1
    prefix = "RG"
    
    ' Boucle à travers chaque diapositive de la présentation
    For Each diapo In ActivePresentation.Slides
        ' Boucle à travers chaque forme (shape) de la diapositive
        For Each shape In diapo.Shapes
            ' Vérifie si la forme est une zone de texte
            If shape.HasTextFrame Then
                If shape.TextFrame.HasText Then
                    ' Récupère le texte entier dans la zone de texte
                    texteActuel = shape.TextFrame.TextRange.Text
                    
                    ' Remplace toutes les occurrences de "RG000" par "RGXXX" (numérotation incrémentée)
                    If InStr(texteActuel, "RG000") > 0 Then
                        shape.TextFrame.TextRange.Text = Replace(texteActuel, "RG000", prefix & Format(compteur, "000"), 1, -1)
                        
                        ' Incrémenter le compteur après chaque remplacement
                        compteur = compteur + 1
                    End If
                End If
            End If
        Next shape
    Next diapo
End Sub