Recherche un style sans modifier la sélection [Résolu]

[katwes]

Bonjour,

Je souhaite savoir s'il existe un moyen vérifier s'il y exite un style dans une sélection sans modifier cette sélection.

Je m'explique.
J'ai du texte sélectionné,
je lance les commandes suivantes:

Code :

1
2
3
Selection.find.style = ActiveDocument.Styles("Titre 3")
  Selection.find.Execute
  trouve = Selection.find.Found

s'il y a ce style dans le texte sélectionné, la sélection change et se positionne sur le style recherché.

Alors que je veux garder ma sélection et juste vérifier si le style existe ou non.

J'espère que je suis assez claire.

Merci d'avance.

[Heureux-oli]

oui.
Dans ce que tu as fait, tu cherches et pour chercher on modifie la sélection.

Ce que tu dois faire, c'est une boucle sur les paragraphes de ta sélection pour vérifier le style de chaque paragraphe.

Code :

1
2
3
4
5
Dim para As Paragraph
For Each para In Selection.Paragraphs
 If para.Style = "Titre 1" Then MsgBox "Trouvé"
 Debug.Print para.Style
Next para

[katwes]

Merci c'est exactement ce que je cherchais