Classe Dictionaries (Word VBA)

Uma coleção de objetos Dictionary que inclui os dicionários de ortografia personalizados ativos. Para usar uma variável de classe Dictionaries, ela primeiro precisa ser instanciada por exemplo

Dim dcts as Dictionaries
Set dcts = CustomDictionaries

ActiveCustomDictionary

Retorna ou define um objeto Dictionary que representa o dicionário personalizado ao qual as palavras serão adicionadas. Leitura/gravação.

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

Add

Retorna um objeto Dictionary que representa um novo dicionário ortográfico ou de conversão personalizado adicionado à coleção de dicionários de ortografia ou conversão personalizados ativos.

Se não houver um arquivo com o nome especificado pelo parâmetro FileName, o Microsoft Word o criará. A coleção de dicionários inclui somente os dicionários de ortografia personalizados ativos. Objetos de dicionário que são derivados da coleção idiomas não têm um método Add. Eles incluem os objetos de dicionário retornados pelo ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary e ActiveHyphenationDictionary propriedades. Use a propriedade HangulHanjaDictionaries para retornar a coleção de dicionários personalizados. A coleção HangulHanjaConversionDictionaries inclui somente os dicionários de conversão personalizados ativos.

Add (FileName)

FileName: Sequência de caracteres com o nome do arquivo de dicionário. Se nenhum caminho for especificado na sequência de caracteres, será usado o caminho dos revisores de texto.

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

ClearAll

Descarrega todos os dicionários personalizados ou de conversão.

CustomDictionaries.ClearAll

Count

Retorna um Long que representa o número de dicionários na coleção. Somente leitura.

Dim lngCount As Long
lngCount = CustomDictionaries.Count

Item

Retorna um objeto Dictionary individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

Dim dict As Dictionary
Set dict = CustomDictionaries(Index:=1)

Maximum

Retorna o número máximo de dicionários personalizados ou de conversão permitidos. Long somente leitura.

If CustomDictionaries.Count = CustomDictionaries.Maximum Then 
 MsgBox "Cannot add another dictionary file" 
Else 
 CustomDictionaries.Add "MyDictionary.dic" 
End If