Propriedade Application.CustomDictionaries (Word)
Retorna um objeto Dictionaries que representa a coleção de dicionários personalizados ativos. Somente leitura.
Sintaxe
expression. CustomDictionaries
expressão Uma variável que representa um Aplicativo objeto.
Comentários
Os dicionários personalizados ativos são indicados com uma marca na caixa de diálogo Dicionários personalizados. Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.
Exemplo
Este exemplo adiciona um novo dicionário personalizado vazio à coleção. O caminho e o nome de arquivo do novo dicionário personalizado são exibidos em uma caixa de mensagem.
Dim dicHome As Dictionary
Set dicHome = CustomDictionaries.Add(Filename:="Home.dic")
Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name
Este exemplo remove todos os dicionários personalizados para que nenhum dicionário personalizado fique ativo. Contudo, os arquivos dos dicionários personalizados não são excluídos.
CustomDictionaries.ClearAll
Este exemplo exibe o nome de cada dicionário personalizado da coleção.
Dim dicLoop As Dictionary
For Each dicLoop In CustomDictionaries
MsgBox dicLoop.Name
Next dicLoop
Confira também
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.