TEXT CHARACTERS COUNT

Hello, again, folk

I Have Text Shape on current layer:

TEXT TEXT TEXT

I select this text. 

I need code to return me ActiveShape.Characters.Count

I try this code:
'MsgBox ActiveShape.Text.Range.Characters.Count return Argument not optional

MsgBox ActiveShape.Text.Range(0, 1000).Characters.Count 'work

On other idea?

Thenks!

  • some sample code

    Sub Test()
    Dim d As Document
    Dim s As Shape
    Dim t As Text
    Set d = CreateDocument
    Set s = d.ActiveLayer.CreateArtisticText(3, 3, "This is a test.")
    Set t = s.Text
    MsgBox "Number of characters is: " & vbCr & t.Story.Characters.Count
    End Sub

    • Thank You
      'use Story, not Range
      Dim t As Text
      Set t = ActiveShape.Text
      MsgBox "Number of characters is: " & vbCr & t.Story.Characters.Count