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

Objeto Application

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.