Método TextRange.Characters (Publisher)

Retorna um objeto TextRange que representa o subconjunto especificado de caracteres de texto.

Sintaxe

expressão. Caracteres (Iniciar, 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	O primeiro caractere no intervalo retornado.
Length	Opcional	Long	O número de caracteres a ser retornado. O padrão é 1.

Valor de retorno

TextRange

Comentários

Se Start for superior ao número de caracteres no texto especificado, o intervalo retornado começa com o último caractere no intervalo especificado.

Se Length for maior que o número de caracteres do caractere inicial especificado até o final do texto, o intervalo retornado conterá todos esses caracteres.

Exemplo

Este exemplo define o texto para a primeira forma na primeira página no documento ativo e, em seguida, define a fonte dos primeiros dois caracteres como 15 pontos e negrito.

Sub CharRange() 
 Dim rngCharacters As TextRange 
 Set rngCharacters = Application.ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.InsertBefore(NewText:="Hello World.") 
 With rngCharacters.Characters(Start:=1, Length:=2).Font 
 .Size = 15 
 .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.