Classe HangulHanjaConversionDictionaries (Word VBA)

Uma coleção de objetos Dictionary que inclui os dicionários de conversão de Hangul em Hanja personalizados ativos. Para usar uma variável de classe HangulHanjaConversionDictionaries, ela primeiro precisa ser instanciada por exemplo

Dim hhcs as HangulHanjaConversionDictionaries
Set hhcs = HangulHanjaDictionaries

ActiveCustomDictionary

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

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

Add

Retorna um objeto Dictionary que representa um novo dicionário ortográfico ou de conversão personalizado adicionado à coleção de dicionários de ortografia ou conversão personalizados ativos.

Se não houver um arquivo com o nome especificado pelo parâmetro FileName, o Microsoft Word o criará. A coleção de dicionários inclui somente os dicionários de ortografia personalizados ativos. Objetos de dicionário que são derivados da coleção idiomas não têm um método Add. Eles incluem os objetos de dicionário retornados pelo ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary e ActiveHyphenationDictionary propriedades. Use a propriedade HangulHanjaDictionaries para retornar a coleção de dicionários personalizados. A coleção HangulHanjaConversionDictionaries inclui somente os dicionários de conversão personalizados ativos.

Add (FileName)

FileName: Sequência de caracteres com o nome do arquivo de dicionário. Se nenhum caminho for especificado na sequência de caracteres, será usado o caminho dos revisores de texto.

With HangulHanjaDictionaries 
 .ClearAll 
 .Add FileName:="C:\My Documents\MyCustom.hhd" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

ClearAll

Descarrega todos os dicionários personalizados ou de conversão.

O método ClearAll não exclui os arquivos de dicionário de conversão. Depois de usar esse método, o número de dicionários de conversão na coleção é 0 (zero).

HangulHanjaDictionaries.ClearAll

Count

Retorna um Long que representa o número de dicionários na coleção. Somente leitura.

Dim lngCount As Long
lngCount = HangulHanjaDictionaries.Count

Item

Retorna um objeto Dictionary individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

Dim dictHangulHanjaConversionDictionary As Dictionary
Set dictHangulHanjaConversionDictionary = HangulHanjaDictionaries(Index:=1)

Maximum

Retorna o número máximo de dicionários personalizados ou de conversão permitidos. Long somente leitura.

Dim lngMaximum As Long
lngMaximum = HangulHanjaDictionaries.Maximum