Classe AutoTextEntry - entrada de AutoTexto (Word VBA)

A classe AutoTextEntry representa uma única entrada de AutoTexto. O objeto AutoTextEntry é um membro da coleção AutoTextEntries. A coleção AutoTextEntries contém todas as entradas de AutoTexto do modelo especificado. As entradas são listadas na guia AutoTexto da caixa de diálogo AutoCorreção. Para usar uma variável de classe AutoTextEntry, ela primeiro precisa ser instanciada por exemplo

Dim ate as AutoTextEntry
Set ate = Dim strName As String: strName = 
Dim strStyleName As String: strStyleName = 
Selection.CreateAutoTextEntry(Name:=strName, StyleName:=strStyleName)

Delete

Exclui o objeto especificado.

Selection.CreateAutoTextEntry.Delete

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim lngIndex As Long
lngIndex = Selection.CreateAutoTextEntry.Index

Insert

Insere a entrada de AutoTexto no lugar do intervalo especificado. Retorna um objeto Range que representa a entrada de AutoTexto.

Se você não quiser substituir o intervalo, use o método Collapse antes de usar esse método.

Insert (Where, RichText)

Sub InsertAutoTextEntry() 
 ActiveDocument.Content.Select 
 Selection.Collapse Direction:=wdCollapseEnd 
 ActiveDocument.AttachedTemplate.AutoTextEntries("one").Insert _ 
 Where:=Selection.Range, RichText:=True 
End Sub

Arguments

O seguinte argumento é necessário

Where (Range) - A localização da entrada de AutoTexto.

Optional arguments

The following argument is optional

RichText (String) - True para inserir a entrada de AutoTexto com sua formatação original.

Name

Retorna ou define o nome do objeto especificado. Cadeia de caracteresde leitura/gravação.

Selection.CreateAutoTextEntry.Name =

StyleName

Retorna o nome do estilo aplicado à entrada de AutoTexto especificada. Cadeia de caracteressomente leitura.

Set myentry = NormalTemplate.AutoTextEntries.Add(Name:="rsvp", _ 
 Range:=Selection.Range) 
MsgBox myentry.StyleName

Value

Retorna ou define o valor da entrada de AutoTexto. String de leitura/gravação.

Configuração da propriedade Value retorna apenas os primeiros 255 caracteres do valor do objeto.

Selection.CreateAutoTextEntry.Value =