Propiedad Language.ActiveThesaurusDictionary (Word)

Devuelve un objeto Dictionary que representa el diccionario de sinónimos activo para el idioma especificado.

Sintaxis

expresión. ActiveThesaurusDictionary

Expresión Expresión que devuelve un objeto 'Language'.

Comentarios

Si no hay ningún diccionario de sinónimos instalado del idioma especificado, esta propiedad devuelve Nothing.

Ejemplo:

En este ejemplo se devuelve la ruta de acceso completa y el nombre del archivo del diccionario de sinónimos activo.

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 

Consulte también

Objeto Language

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.