Voici une macro qui va sélectionner tour à tour les textes entre << et >>
Sub Test_Forum_selection()
'Macro écrite par Patrick
With ActiveDocument.Content.Find
' Annule la mise en forme de texte
' spécifiée dans le cadre d'une opération de recherche ou de remplacement
.ClearFormatting
' Car le texte à rechercher contient des caractères génériques
' (ici "*")
.MatchWildcards = True
' boucle tant qu'on trouve une chaîne de caractères de type
"<<...>>
Do While .Execute(FindText:="\<\<*\>\>", _
Forward:=True, _
Format:=True) = True
' recherche effective de la chaîne de caractères de type "<<...>>"
Selection.Find.Execute FindText:="\<\<*\>\>"
' sélection de la chaîne de caractères de type "<<...>>
' mais sans les chevrons
' exemple : si on vient de trouver "<>",
' seul "coucou" sera sélectionné
' + 2 pour ignorer les chevrons "<<"
' - 2 pour ignorer les chevrons ">>"
ActiveDocument.Range(Selection.Range.Start + 2, _
Selection.Range.End - 2).Select
' affichage du résultat trouvé
' (permettant également de vérifier
' la sélection effective dans le document Word)
MsgBox ActiveDocument.Range(Selection.Range.Start,Selection.Range.End)
' déplacement du curseur à droite de la chaîne "<<...>>
' 1 pour invalider la sélection précédente
' (cf les caractères contenus entre "<<" et ">>")
' + 2 pour les chevrons ">>"
Selection.MoveRight Unit:=wdCharacter, Count:=3
' fin de la boucle
Loop
End With
End Sub