Propriedade Dictionaries.ActiveCustomDictionary (Word)

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

Sintaxe

expression. ActiveCustomDictionary

Expressão Uma variável que representa uma coleção 'Dictionaries'.

Exemplo

Este exemplo exibe o caminho completo e o nome de arquivo do dicionário personalizado ativo.

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

Este exemplo limpa todos os dicionários personalizados existentes, adiciona um dicionário personalizado chamado "Home.dic" e carrega o novo dicionário.

Dim dicCustom As Dictionary 
 
Application.CustomDictionaries.ClearAll 
 
Set dicCustom = Application.CustomDictionaries _ 
 .Add(FileName:="C:\Program Files" _ 
 & "\Microsoft Office\Office\Home.dic") 
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom

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.