Objeto AutoTextEntries (Word)

Uma coleção de objetos de 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.

Comentários

Use a propriedade AutoTextEntries para retornar a coleção AutoTextEntries. O exemplo a seguir determina se um objeto AutoTextEntry chamado "test" estiver na coleção AutoTextEntries.

For Each i In NormalTemplate.AutoTextEntries 
 If LCase(i.Name) = "test" Then MsgBox "AutoText entry exists" 
Next i

Use o método Add para adicionar uma entrada de AutoTexto à coleção AutoTextEntries. O exemplo a seguir adiciona uma entrada de AutoTexto chamada "Blue" baseada no texto da seleção.

NormalTemplate.AutoTextEntries.Add Name:="Blue", _ 
 Range:=Selection.Range

Use AutoTextEntries (index), em que o índice é o nome de entrada do AutoText ou o número de índice, para retornar um único objeto AutoTextEntry . Você deve coincidir exatamente a ortografia (mas não necessariamente as maiúsculas/minúsculas) do nome, como ele é mostrado na guia AutoTexto da caixa de diálogo AutoCorreção. O exemplo a seguir define o valor de uma entrada de AutoTexto existente chamada "cName".

NormalTemplate.AutoTextEntries("cName").Value = _ 
 "The Johnson Company"

O exemplo a seguir exibe o nome e o valor da primeira entrada de AutoTexto do modelo anexado ao documento ativo.

Set myTemplate = ActiveDocument.AttachedTemplate 
MsgBox "Name = " & myTemplate.AutoTextEntries(1).Name & vbCr _ 
 & "Value " & myTemplate.AutoTextEntries(1).Value

Métodos

• Add
• AppendToSpike
• Item

Propriedades

• Aplicativo
• Count
• Creator
• Parent

Confira também

• Referência do modelo de objeto do Word

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.