Hello, again, folkI Have Text Shape on current layer:
TEXT TEXT TEXT
I select this text. I need code to return me ActiveShape.Characters.CountI try this code:'MsgBox ActiveShape.Text.Range.Characters.Count return Argument not optionalMsgBox ActiveShape.Text.Range(0, 1000).Characters.Count 'workOn 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.CountEnd Sub
Thank You'use Story, not RangeDim t As TextSet t = ActiveShape.TextMsgBox "Number of characters is: " & vbCr & t.Story.Characters.Count