Método AutoTextEntries.AppendToSpike (Word)

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.

Sintaxe

expression. AppendToSpike( _Range_ )

expressão Obrigatório. Uma variável que representa uma coleção 'AutoTextEntries'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Range	Obrigatório	Range	O intervalo que é excluído e adicionado ao AutoTexto especial.

Valor de retorno

AutoTextEntry

Comentários

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

Exemplo

Este exemplo exclui a seleção e adiciona seu conteúdo ao AutoTexto especial no modelo Normal.

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

Este exemplo limpa o AutoTexto especial e adiciona a primeira e a terceira palavras do documento ativo ao AutoTexto especial no modelo Normal. Em seguida, o conteúdo do AutoTexto especial é inserido no ponto de inserção.

Dim atEntry As AutoTextEntry 
Selection.Collapse Direction:=wdCollapseStart 
For Each atEntry In NormalTemplate.AutoTextEntries 
 If atEntry.Name = "Spike" Then atEntry.Delete 
Next atEntry 
With NormalTemplate.AutoTextEntries 
 .AppendToSpike Range:=ActiveDocument.Words(3) 
 .AppendToSpike Range:=ActiveDocument.Words(1) 
 .Item("Spike").Insert Where:=Selection.Range 
End With

Confira também

Objeto da coleção AutoTextEntries

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.