TEXT CHARACTERS COUNT

bhbp.bg2
6 months ago

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!

Parents
  • 6 months ago

    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

Reply Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.