Compartilhar via

TextRange.Lines method (Publisher) (Método TextRange.Lines [Publisher])

Devolve um objeto TextRange que representa as linhas especificadas.

Sintaxe

expressão. Linhas (Início, Comprimento)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Start Obrigatório Long A primeira linha do intervalo retornado.
Length Opcional Long O número de linhas a serem retornadas. O padrão é 1.

Valor de retorno

TextRange

Comentários

Se Start for maior do que o número de linhas no texto especificado, o intervalo retornado inicia com a última linha no intervalo especificado.

Se Comprimento for maior do que o número de linhas da linha inicial especificada até ao fim do texto, o intervalo devolvido contém todas essas linhas.

Exemplo

Este exemplo substitui as primeiras três linhas da primeira forma na primeira página pela sequência especificada.

Sub ReplaceLines() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Lines(Start:=1, Length:=3) 
 
 rngText.Text = "This is replacement text." & vbCrLf 
 
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