PowerPoint) (TextRange.Characters 方法

會傳回 TextRange 物件，此物件代表指定之文字字元的子集合。 如需統計或循序查看某個文字範圍中字元的詳細資訊，請參閱 TextRange 物件。

語法

expression. Characters( _Start_, _Length_ )

表達 代表 TextRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Start	選用	Long	傳回之範圍中的第一個字元。
Length	選用	Long	要傳回的字元數目。

傳回值

TextRange

註解

如果同時省略了 Start 和 Length，則傳回的範圍會從第一個字元開始，並結束於指定之範圍內的最後一個段落。

如果有指定 Start，但是省略 Length，則傳回的範圍會包含一個字元。

如果有指定 Length，但是省略 Start，則傳回的範圍會從指定之範圍內的第一個字元開始。

如果 Start 大於指定之文字中的字元數，則傳回的範圍會從指定之範圍內的最後一個字元開始。

如果 Length 大於從指定之起始字元到文字結束之間的字元數，則傳回的範圍會包含所有的這些字元。

範例

這個範例會設定使用中簡報內第一張投影片上第二個圖案的文字，然後讓第二個字元成為具有 20% 位移的下標字元。

Dim charRange As TextRange

With Application.ActivePresentation.Slides(1).Shapes(2)

    Set charRange = .TextFrame.TextRange.InsertBefore("H2O")

    charRange.Characters(2).Font.BaselineOffset = -0.2

End With

這個範例會將第一張投影片上第二個圖案中的每一個下標字元設為粗體字格式。

With Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange

    For i = 1 To .Characters.Count

        With .Characters(i).Font

            If .Subscript Then .Bold = True

        End With

    Next

End With

另請參閱

TextRange 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。