user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

 

Statistiques

Aujourd'hui1187
Hier2712
Cette semaine12004
Ce mois12004
Total depuis 200412836568

32
visiteurs actuellement en ligne

5 mars 2021