Classe Dictionary - dicionário (Word VBA)
A classe Dictionary representa um dicionário. Objetos Dictionary que representam os dicionários personalizados são membros da coleção de dicionários. Outros objetos de dicionário são retornados pelas propriedades do conjunto de idiomas; Eles incluem o ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary e ActiveHyphenationDictionary propriedades. Para usar uma variável de classe Dictionary, ela primeiro precisa ser instanciada por exemplo
Dim dict as Dictionary
Set dict = CustomDictionaries(Index:=1)
For Each
Aqui está um exemplo de processamento dos itens Dictionary em uma coleção.
Dim dictCustomDictionary As Dictionary
For Each dictCustomDictionary In CustomDictionaries
Next dictCustomDictionary
Delete
Exclui o dicionário especificado.
CustomDictionaries(1).Delete
LanguageID
Retorna ou define uma constante WdLanguageID que representa o idioma do objeto especificado. Leitura/gravação. Aqui você pode encontrar os valores possíveis para
Para um dicionário personalizado, primeiro você deve definir a propriedade LanguageSpecific como True antes de especificar a propriedade LanguageID. Dicionários personalizados que são específicos do idioma verificar somente o texto que está formatado para esse idioma. Algumas constantes WdLanguageID podem não estar disponíveis para você, dependendo do suporte a idioma (Português do Brasil, por exemplo) que você selecionou ou instalou.
CustomDictionaries(1).LanguageID = wdAfrikaans
LanguageSpecific
True se o dicionário personalizado deve ser usado apenas com o texto formatado para um idioma específico. Boolean de leitura/gravação.
Dim dicLoop As Dictionary
For each dicLoop in CustomDictionaries
If dicLoop.LanguageSpecific = True Then dicLoop.Delete
Next dicLoop
Name
Retorna o nome do objeto especificado. Cadeia de caracteressomente leitura.
Dim strName As String
strName = CustomDictionaries(1).Name
Path
Retorna o caminho para o dicionário especificado. Cadeia de caracteressomente leitura.
O caminho não inclui um caractere precedente por exemplo, "C:\MSOffice" ou "https://MyServer". Use a propriedade PathSeparator para adicionar o caractere que separa pastas e letras de unidade. Use a propriedade Name para retornar o nome de arquivo sem o caminho e use a propriedade FullName para retornar o nome do arquivo e o caminho juntos.
Dim strPath As String
strPath = CustomDictionaries(1).Path
ReadOnly
True se o dicionário especificado não puder ser alterado. Boolean somente leitura.
Os dicionários ativos sobre gramática, hifenização, ortografia e sinônimos são somente leitura. Os dicionários personalizados são leitura/gravação.
Dim booReadOnly As Boolean
booReadOnly = CustomDictionaries(1).ReadOnly
Type
Retorna o tipo de dicionário. Somente leitura WdDictionaryType. Aqui você pode encontrar os valores possíveis para
Dim wdtType As WdDictionaryType
wdtType = CustomDictionaries(1).Type