Método TextRange.Collapse (Publisher)
Recolhe um intervalo ou uma seleção à posição inicial ou final. Depois de recolher, os pontos inicial e final serão iguais.
Sintaxe
expressão. Colapso (Direção)
Expressão Uma variável que representa um objeto TextRange .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Direction | Obrigatório | PbCollapseDirection | A direção na qual recolher o intervalo ou seleção. Pode ser uma das constantes PbCollapseDirection declaradas na biblioteca de tipos do Microsoft Publisher. |
Comentários
Se você usar pbCollapseEnd para recolher um intervalo que se refere a um parágrafo inteiro, o intervalo será localizado após marca de parágrafo final (o início do próximo parágrafo). No entanto, você pode mover o intervalo de volta um caractere usando o método MoveEnd depois que o intervalo for recolhido.
Exemplo
Este exemplo insere texto no início do segundo parágrafo na primeira forma da primeira página da publicação ativa. Este exemplo pressupõe que a forma especificada é um quadro de texto e não é outro tipo de forma.
Sub CollapseRange()
Dim rngText As TextRange
Set rngText = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange
'Collapses range to the end of the range and
'enters new text and a new paragraph
With rngText
.Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd
.Text = "This is a new paragraph." & vbCrLf
End With
End Sub
Este exemplo insere novo texto no fim do primeiro parágrafo na primeira forma da primeira página da publicação ativa. Este exemplo pressupõe que a forma especificada é um quadro de texto e não é outro tipo de forma.
Sub CollapseSelection()
ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _
.Paragraphs(Start:=1, Length:=1).Select
'Collapses selection to end and moves cursor back
'one character, then enters new text
With Selection.TextRange
.Collapse Direction:=pbCollapseEnd
.MoveEnd Unit:=pbTextUnitCharacter, Size:=-1
.Text = " This is a new test."
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.