Propriedade Language.ActiveThesaurusDictionary (Word)

Retorna um objeto Dictionary que representa o dicionário de sinônimos ativo para o idioma especificado.

Sintaxe

expression. ActiveThesaurusDictionary

Expressão Uma expressão que retorna um objeto 'Language'.

Comentários

Se não houver nenhum dicionário de sinônimos instalado para o idioma especificado, essa propriedade retornará Nothing.

Exemplo

Este exemplo retorna o caminho completo e o nome de arquivo do dicionário de sinônimos ativo.

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 

Confira também

Objeto Language

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.