Método Dictionaries.Add (Word)

Devuelve un objeto Dictionary que representa un nuevo diccionario de conversión u ortográfico personalizado agregado a la colección de diccionarios de conversión u ortográficos personalizados activos.

Sintaxis

expresión. Agregar (FileName)

expresión requerida. Variable que representa una colección "Diccionarios".

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Nombre de la cadena del archivo del diccionario. Si no se especifica ninguna ruta en la cadena, se utilizará la de las herramientas de corrección.

Valor devuelto

Dictionary

Comentarios

Si no existe ningún archivo con el nombre especificado mediante el parámetro FileName, Microsoft Word lo creará.

La colección Dictionaries incluye solamente los diccionarios ortográficos personalizados activos. Los objetos Dictionary que se derivan de la colección Languages no tienen un método Add. Esto incluye los objetos Dictionary devueltos por las propiedades ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary y ActiveHyphenationDictionary propiedades.

Utilice la propiedad HangulHanjaDictionaries para devolver la colección de diccionarios de conversión personalizados. La colección HangulHanjaConversionDictionaries incluye solamente los diccionarios de conversión personalizados activos.

Ejemplo:

En este ejemplo, se quitan todos los diccionarios de la lista de diccionarios ortográficos personalizados y se crea un nuevo archivo de diccionario personalizado. El nuevo diccionario queda designado como el diccionario personalizado activo y a él se agregarán automáticamente las palabras nuevas.

With CustomDictionaries 
 .ClearAll 
 .Add FileName:="c:\My Documents\MyCustom.dic" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

Este ejemplo crea un diccionario personalizado nuevo y lo asigna a una variable. El nuevo diccionario personalizado se establece, a continuación, para su utilización con texto marcado como francés canadiense. Tenga en cuenta que para ejecutar una revisión ortográfica para otro idioma tiene que tener instaladas las herramientas de revisión para ese idioma.

Sub FrCanDic() 
 Dim dicFrenchCan As Dictionary 
 
 Set dicFrenchCan = CustomDictionaries.Add(FileName:="FrenchCanadian.dic") 
 With dicFrenchCan 
 .LanguageSpecific = True 
 .LanguageID = wdFrenchCanadian 
 End With 
End Sub

En este ejemplo, se quitan todos los diccionarios de la lista de diccionarios de conversión personalizados y se crea un nuevo archivo de diccionario personalizado. El nuevo diccionario queda designado como el diccionario personalizado activo y a él se agregarán automáticamente las palabras nuevas.

With HangulHanjaDictionaries 
 .ClearAll 
 .Add FileName:="C:\My Documents\MyCustom.hhd" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

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.