Lire en anglais

Partager via


Objet SynonymInfo (Word)

Représente les informations concernant les synonymes, les antonymes ou encore les mots ou expressions apparentés pour la plage spécifiée ou d'une chaîne donnée.

Remarques

Utilisez la propriété SynonymInfo pour renvoyer un objet SynonymInfo. L'objet SynonymInfo peut être obtenue à partir d'une plage ou à partir de Microsoft Office Word. Si elle est renvoyé à partir de Word, vous spécifiez la rechercher un mot ou une phrase et identificateur de langue de vérification. Si elle est renvoyé à partir d'une plage, Word utilise la plage spécifiée en tant que le mot de la recherche. L'exemple suivant renvoie un objet SynonymInfo à partir de Word.

temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found

L'exemple suivant renvoie un objet SynonymInfo à partir d'une plage.

temp = Selection.Range.SynonymInfo.Found

La propriété Found, utilisée dans les exemples précédents, renvoie la valeur True si elle trouve des informations dans le dictionnaire des synonymes pour la plage spécifiée ou Word. Toutefois, notez que cette propriété renvoie la valeur True si synonymes sont détectés, mais également si des mots, expressions apparentés, ou des antonymes.

La plupart des propriétés de l'objet SynonymInfo renvoient un Variant contenant un tableau de chaînes. Lorsque vous travaillez avec ces propriétés, vous pouvez affecter le tableau renvoyé à une variable et indexez ensuite afin d'afficher les éléments du tableau. L'exemple suivant montre comment affecter à Slist la liste de synonymes associée à la première signification du mot ou de l'expression sélectionné. La fonction UBound recherche la limite supérieure du tableau, et puis chaque élément s'affiche dans une boîte de message.

Slist = Selection.Range.SynonymInfo.SynonymList(1) 
For i = 1 To UBound(Slist) 
 Msgbox Slist(i) 
Next i

Vous pouvez vérifier la valeur de la propriété MeaningCount afin d'éviter des erreurs dans votre code. L'exemple suivant renvoie une liste de synonymes pour la deuxième signification du mot ou une expression dans la sélection et affiche ces synonymes dans la fenêtre exécution.

Set synInfo = Selection.Range.SynonymInfo 
If synInfo.MeaningCount >= 2 Then 
 synList = synInfo.SynonymList(2) 
 For i = 1 To UBound(synList) 
 Debug.Print synList(i) 
 Next i 
Else 
 MsgBox "There is no second meaning for the selection." 
End If

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.