Share via

Characters Method

  • Article

Characters Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a TextRange object that represents the specified subset of text characters.

expression.Characters(Start, Length)

expression   Required. An expression that returns one of the objects in the Applies To list.

Start  Required Long. The first character in the returned range.

Length  Optional Long. The number of characters to be returned. Default is 1.

Remarks

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.

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.

Example

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