Table of contents
TOC
Recolher sumário
Expandir sumário

Método TextRange.Characters (Editor)TextRange.Characters Method (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna um objeto TextRange que representa o subconjunto especificado de caracteres de texto.Returns a TextRange object that represents the specified subset of text characters.

SintaxeSyntax

expressão. Caracteres ( Início, comprimento)expression. Characters( Start, Length)

_expression_A variável que representa um objeto TextRange ._expression_A variable that represents a TextRange object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData TypeDescriçãoDescription
IniciarStartObrigatórioRequiredLongLongO primeiro caractere no intervalo retornado.The first character in the returned range.
ComprimentoLengthOpcionalOptionalLongLongO número de caracteres a ser retornado. O número de caracteres a ser retornado. O padrão é 1.The number of characters to be returned. Default is 1.

Valor retornadoReturn Value

TextRangeTextRange

ComentáriosRemarks

Se Start for maior que o número de caracteres no texto especificado, o intervalo retornado começará com o último caractere no intervalo especificado.If Start is greater than the number of characters in the specified text, the returned range starts with the last character in the specified range.

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.If Length is greater than the number of characters from the specified starting character to the end of the text, the returned range contains all those characters.

ExemploExample

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.This example sets the text for the first shape on the first page in the active document, and then sets the font of the first two characters to 15 points and bold.

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
© 2018 Microsoft