Propriété Language.ActiveThesaurusDictionary (Word)
Renvoie un objet Dictionary qui représente le dictionnaire des synonymes actif correspondant à la langue spécifiée.
Syntaxe
expression. ActiveThesaurusDictionary
Expression Expression qui renvoie un objet « Language ».
Remarques
S'il n'existe aucun dictionnaire des synonymes installé pour la langue spécifiée, cette propriété renvoie Nothing.
Exemple
Cet exemple montre comment renvoyer le chemin d'accès complet ainsi que le nom de fichier du dictionnaire des synonymes actif.
Dim lngLanguage As Long
Dim dicThesaurus As Dictionary
lngLanguage = Selection.LanguageID
Set dicThesaurus = Languages(lngLanguage).ActiveThesaurusDictionary
If dicThesaurus Is Nothing Then
MsgBox "No thesaurus dictionary installed!"
Else
MsgBox dicThesaurus.Path & Application.PathSeparator _
& dicThesaurus.Name
End If
Voir aussi
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.