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.