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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de