Propriété Language.ActiveThesaurusDictionary (Word)

  • Article

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

Objet Language

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.