Método TextRange.MoveEnd (Publisher)

Move a posição de caractere final de um intervalo. Esse método retorna um Long que representa o número de unidades que o intervalo ou a seleção realmente moveram ou retorna 0 (zero) se a movimentação não tiver sido bem-sucedida.

Sintaxe

expressão. MoveEnd (Unidade, Tamanho)

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Unit	Obrigatório	PbTextUnit	O tipo de unidade que será usado para mover a seleção ou o intervalo recolhido. Pode ser uma das constantes PbTextUnit declaradas na biblioteca de tipos do Microsoft Publisher.
Tamanho	Obrigatório	Long	O número de unidades que serão movidas. Se esse número for positivo, a posição de caractere final será movida para frente no documento. Se esse número for negativo, o final será movido para trás. Se a posição final ultrapassar a posição inicial, o intervalo será recolhido e ambas as posições de caractere serão movidas juntas.

Valor de retorno

Longo

Exemplo

Este exemplo define um intervalo de texto, move as posições de caracteres inicial e final e, em seguida, formata a fonte do intervalo.

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 End With 
 
End Sub

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.