Propiedad Dictionaries.ActiveCustomDictionary (Word)

Devuelve o establece un objeto Dictionary que representa el diccionario personalizado al que se van a agregar palabras. Lectura y escritura.

Sintaxis

expresión. ActiveCustomDictionary

expresión Variable que representa una colección 'Diccionarios'.

Ejemplo

En este ejemplo, se muestra la ruta de acceso completa y el nombre del archivo del diccionario personalizado activo.

Set dicCustom = Application.CustomDictionaries.ActiveCustomDictionary 
MsgBox dicCustom.Path & Application.PathSeparator & dicCustom.Name

En este ejemplo, se desactivan todos los diccionarios personalizados existentes, se agrega un diccionario personalizado de nombre "Home.dic" y, a continuación, se carga el diccionario nuevo.

Dim dicCustom As Dictionary 
 
Application.CustomDictionaries.ClearAll 
 
Set dicCustom = Application.CustomDictionaries _ 
 .Add(FileName:="C:\Program Files" _ 
 & "\Microsoft Office\Office\Home.dic") 
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom

Consulte también

Objeto de colección de diccionarios

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.