Application.CustomDictionaries (Word)

Retorna um objeto Dictionaries que representa a coleção de dicionários personalizados ativos. Somente leitura.

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.

Dim dicHome As Dictionary 
Set dicHome = CustomDictionaries.Add(Filename:="Home.dic") 
Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name