Discussion :

[November-Oscar]

Bonjour,

Je souhaiterais faire un bout de code qui me remonte si oui ou non il existe des éléments surlignés dans le texte de mon document.

Pour retrouver le texte surligné, oui, je peux faire un.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.Find.Highlight = True
 Selection.Find.Execute

mais ça me positionne juste sur le premier élément... ce que je ne veux pas.

Cerise sur le gâteau pourrait être d'avoir le nombre d'éléments surlignés.

Merci de votre aide.

Cdlt

[November-Oscar]

j'ai trouvé !

je me réponds à moi-même pour que la communauté en profite...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function surlig(InDocument As Document) As Boolean
    With InDocument.Content.Find
        .ClearFormatting
        .Highlight = True
        If .Execute(findtext:="", Format:=True, Forward:=True) then surlig = True
     End With
End Function

@+

[Heureux-oli]

Salut,

Si tu veux en profiter, voilà un endroit qui devrait contenir ce que tu cherches.

http://heureuxoli.developpez.com/off...-et-remplacer/