Método TextRange.Move (Publicador)

Colapsa o intervalo especificado para sua posição inicial ou posição final e, em seguida, move o objeto colapsado pelo número especificado de unidades. Esse método retorna um Long que representa o número de unidades pelas quais o objeto foi realmente movido ou retorna 0 (zero) se a movimentação não tiver sido bem sucedida.

Sintaxe

expressão. Mover (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 pelas quais deve ser movido o intervalo ou seleção especificada. Se tamanho não for um número positivo, o objeto é recolhido para sua posição final e movido para frente no documento pelo número especificado de unidades. Se tamanho não for um número negativo, o objeto é recolhido para sua posição inicial e movido para trás pelo número especificado de unidades. Você também pode controlar a direção do colapso usando o método Collapse antes de usar o método Move .

Valor de retorno

Longo

Exemplo

Este exemplo recolhe o intervalo especificado e insere uma nova sentença no início do intervalo.

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 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.