Classe AutoTextEntries (Word VBA)

Uma coleção de objetos AutoCorrectEntry que representa as entradas de AutoTexto em um modelo. A coleção AutoTextEntries inclui todas as entradas listadas na guia AutoTexto da caixa de diálogo AutoCorreção. Para usar uma variável de classe AutoTextEntries, ela primeiro precisa ser instanciada por exemplo

Add

Retorna um objeto AutoTextEntry que representa uma entrada de AutoTexto adicionada à lista de entradas de AutoTexto disponíveis.

Add (Name, Range)

Sub AutoTxt() 
 NormalTemplate.AutoTextEntries.Add Name:="Sample Text", _ 
 Range:=Selection.Range 
End Sub

Arguments

O seguinte argumento é opcional

Name (String) - O texto que, quando digitado, inicia uma entrada de AutoTexto.

Range (Range) - Um intervalo de texto que será inserido sempre que Name for digitado.

AppendToSpike

Exclui o intervalo especificado e adiciona o conteúdo do intervalo ao AutoTexto especial uma entrada de AutoTexto interna. Esse método retorna o pico como um objeto AutoTextEntry .

O método AppendToSpike só é válido para a coleção AutoTextEntries no modelo Normal.

AppendToSpike (Range)

Range: O intervalo que é excluído e adicionado ao AutoTexto especial.

If Len(Selection.Range.Text) > 1 Then 
 NormalTemplate.AutoTextEntries.AppendToSpike _ 
 Range:=Selection.Range 
End If

Count

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

Dim ates As AutoTextEntries: Set ates =  
Dim lngCount As Long
lngCount = ates.Count

Item

Retorna um objeto AutoTextEntry 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 ates As AutoTextEntries: Set ates =  
Dim ate As AutoTextEntry
Set ate = ates(Index:=1)