Método Dictionaries.Add (Word)

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

Sintaxe

expressão. Adicionar (FileName)

expressão Obrigatório. Uma variável que representa uma coleção 'Dictionaries'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	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.

Valor de retorno

Dictionary

Comentários

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.

Exemplo

Este exemplo remove todos os dicionários da lista de dicionários de ortografia personalizados e cria um novo arquivo de dicionário personalizado. O novo dicionário é designado para ser o dicionário personalizado ativo, ao qual as palavras novas são automaticamente adicionadas.

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

Este exemplo cria um novo dicionário personalizado e o atribui a uma variável. O novo dicionário personalizado é então definido para ser usado com texto que esteja marcado como francês canadense. Observe que, para executar uma verificação ortográfica em outro idioma, você precisa ter instalados os revisores de texto desse idioma.

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

Este exemplo remove todos os dicionários da lista de dicionários de conversão personalizados e cria um novo arquivo de dicionário personalizado. O novo dicionário é designado para ser o dicionário personalizado ativo, ao qual as palavras novas são automaticamente adicionadas.

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

Confira também

Objeto da coleção Dictionaries

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.