Small Text Character Count Bug X4 SP2

[runflacruiser]

Hi.

msgbox activeshape.Text.Story.Characters.Count

seems to return wrong amount of characters in X4.
~John

Hi again John,

I also have running X4, can you describe your prob a bit more detailed? What text is in there, and what's wrong?

Thus far I can just think of paragraphs which may alter your result unexpectedly:

A quote from the docs:

The Count property returns the number of characters in the collection, including paragraph breaks.

So each paragraph break is included in the Count, you may want to subtract that like this:

MsgBox t.Story.Characters.Count - t.Story.Paragraphs.Count

[runflacruiser]

Hi.
I was mostly pointing out the bug.
I already worked around it.

In X4 create and Artistic text shape and type "test" without quotes. In the VBA intermediate window paste msgbox activeshape.Text.Story.Characters.Count and press enter. Do the same in X5.

X4 returns 5 characters and X5 returns 4 as it should.
~John

Hm, I don't know if it's a bug, I guess they just changed the behavior of .Count in X5.

Since it's explicitly stated in the X4 Docs that .Count includes Paragraph breaks, it's reasonable to subtract them and the .Characters.Count - .Paragraphs.Count gives the result of 4, too.

But I can't proof this, I don't have the reference of X5 here.

If you already solved it, it doesn't matter anyways I guess How does your workaround work?

[runflacruiser]

Hi.
Maybe. Probably was a bug though since it was changed in X5.

My problem was that I was checking next characters for a space. In X4, code that worked in X5 just needed another check.

If i = n2 Then 'n2 is textrange count
    t.Font = strFont
ElseIf s.Text.Story.Characters(i + 1) <> "" Then 'added extra check
    If VBA.AscW(s.Text.Story.Characters(i + 1)) = 32 Then
        t.Font = strFont
    End If
..............bla bla

~John