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

Objeto de Aplicativo

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.