Propiedad Application.CustomDictionaries (Word)
Devuelve un objeto Dictionaries que representa la colección de los diccionarios personalizados activos. Solo lectura.
Sintaxis
expresión. CustomDictionaries
expresión Variable que representa un objeto Application.
Comentarios
Los diccionarios personalizados activos se señalan con una marca de verificación en el cuadro de diálogo Diccionarios personalizados. Para obtener información sobre cómo devolver un único miembro de una colección, vea Devolver un objeto de una colección.
Ejemplo:
En este ejemplo se agrega un nuevo diccionario personalizado vacío a la colección. La ruta de acceso y el nombre del archivo del nuevo diccionario personalizado se muestran después en un cuadro de mensaje.
Dim dicHome As Dictionary
Set dicHome = CustomDictionaries.Add(Filename:="Home.dic")
Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name
En este ejemplo se quitan todos los diccionarios personalizados de modo que no quede ninguno activo. Sin embargo, no se eliminan los archivos de los diccionarios personalizados.
CustomDictionaries.ClearAll
En este ejemplo se muestra el nombre de cada uno de los diccionarios personalizados incluidos en la colección.
Dim dicLoop As Dictionary
For Each dicLoop In CustomDictionaries
MsgBox dicLoop.Name
Next dicLoop
Vea 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.