Macro VBA Répéter action jusqu'à atteindre fin document

jour

Code à tester

Sub NotesdeFin_MiseEnForme()
'
' NotesdeFin_MiseEnForme Macro
' Ajout crochets autour numéro liste notes de fin
'
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' Placer le curseur au début du document
    Selection.HomeKey Unit:=wdStory
    
    ' Boucle jusqu'à la fin du document
    Do Until Selection.End = doc.Content.End
        Selection.TypeText Text:="["
        Selection.MoveRight Unit:=wdWord, Count:=1
        Selection.TypeText Text:="]"
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Selection.TypeText Text:=" "
        Selection.MoveDown Unit:=wdParagraph, Count:=1
    Loop

End Sub

Bonjour,

Merci pour votre réponse, malheureusement le code proposé ne convient pas car la boucle ne s'arrête jamais ce qui fait ensuite boguer Word. Je ne sais pas encore comment quelle instruction indiquer pour stoper la boucle.

code a tester à nouveau

Sub NotesdeFin_MiseEnForme()
    ' NotesdeFin_MiseEnForme Macro
    ' Ajout crochets autour numéro liste notes de fin
    Dim doc As Document
    Dim rng As Range
    Set doc = ActiveDocument
    Set rng = doc.Content

    ' Désactiver le rafraîchissement de l'écran et les alertes pour améliorer les performances
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' Boucle à travers chaque mot du document
    For i = 1 To rng.Words.Count
        If IsNumeric(rng.Words(i).Text) Then
            ' Ajouter les crochets autour du mot
            rng.Words(i).Text = "[" & rng.Words(i).Text & "]"
        End If
    Next i

    ' Réactiver le rafraîchissement de l'écran et les alertes
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub