Classe AutoCorrectEntries (Word VBA)

Uma coleção de objetos AutoCorrectEntry que representa todas as entradas de AutoCorreção disponíveis para o Word. A coleção AutoCorrectEntries inclui todas as entradas da caixa de diálogo AutoCorreção. Para usar uma variável de classe AutoCorrectEntries, ela primeiro precisa ser instanciada por exemplo

Dim aces as AutoCorrectEntries
Set aces = AutoCorrect.Entries

Add

Retorna um objeto AutoCorrectEntry que representa uma entrada de AutoCorreção de texto simples adicionada à lista de entradas de AutoCorreção disponíveis.

Use o método AddRichText para criar uma entrada de AutoCorreção formatada.

Add (Name, Value)

AutoCorrect.Entries.Add Name:="thier", Value:="their"

Arguments

O seguinte argumento é opcional

Name (String) - O texto que você deseja que seja automaticamente substituído pelo texto especificado por Value.

Value (String) - O texto que você deseja que seja inserido automaticamente sempre que o texto especificado por Name for digitado.

AddRichText

Cria uma entrada de AutoCorreção formatada, preservando todos os atributos de texto do intervalo especificado. Retorna um objeto AutoCorrectEntry .

A propriedade RichText para entradas adicionadas pelo uso desse método retorna True. Quando AddRichText não é usado, as entradas de AutoCorreção inseridas seguem o estilo atual.

AddRichText (Name, Range)

If Selection.Type = wdSelectionNormal Then 
 AutoCorrect.Entries.AddRichText "NewText", Selection.Range 
Else 
 MsgBox "You need to select some text." 
End If

Arguments

O seguinte argumento é opcional

Name (String) - O texto a ser automaticamente substituído por Range.

Range (Range) - O texto formatado que o Word irá inserir automaticamente sempre que Name for digitado.

Count

Retorna o número de itens na coleção AutoCorrectEntries. Somente leitura Long.

Dim lngCount As Long
lngCount = AutoCorrect.Entries.Count

Item

Retorna um objeto AutoCorrectEntry 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 ace As AutoCorrectEntry
Set ace = AutoCorrect.Entries(Index:=1)