获取文本中的最后一个字符 TextCharacters.Last

创建段落文本，然后将最后一个字符填充为RGB红色。
Sub Test()
Dim t As Text
Dim s As Shape
Dim d As Document
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, "CDR插件技术网")
Set t = s.Text
t.Story.Characters.Last.Fill.UniformColor.RGBAssign 155, 0, 0
End Sub