Método TextRange.Move (Publisher)

Recolhe o intervalo especificado para sua posição inicial ou final e, em seguida, move o objeto recolhido 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

mais simples. 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 recolhimento usando o método Collapse antes de usar o método Move .

Valor de retorno

Long

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.

  • Last updated on