Compartilhar via

Método TextRange.Expand (Publisher)

  • Artigo

Expande o intervalo ou seleção especificada. Retorna ou define um valor Long que representa o número de unidades especificadas adicionadas ao intervalo ou seleção.

Sintaxe

expressão. Expandir (Unidade)

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 A unidade pela qual expandir o intervalo. Pode ser uma das constantes PbTextUnit declaradas na biblioteca de tipos do Microsoft Publisher.

Valor de retorno

Long

Comentários

O método Expand move os dois pontos de extremidade de um intervalo, se necessário; para mover apenas um ponto de extremidade de um intervalo, use o método MoveStart ou o método MoveEnd .

Exemplo

Este exemplo cria um intervalo que se refere à primeira palavra na primeira forma da publicação ativa, formata a fonte da palavra e, em seguida, expande o intervalo para fazer referência a todo o primeiro parágrafo e formata a fonte em toda a linha.

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 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.