Questo è un esempio di testo in formato RTF: "Questo è in grassetto. Ciao" e questo è il risultato se riporti il campo da rtf a testo normale, "<div><font face=Tahoma color=navy>Questo è in <strong>grassetto. </strong>Ciao</font></div>"
ok togliere i caratteri con i simboli <>, e lo faccio con questa routine
StrIn = Me.Commenti
For Each ch In Array("<div>", "</div>", "<strong>", "</strong>", "<u>", "</u>", "<em>", "</em>")
StrIn = Replace(StrIn, ch, "")
Next ch
CC = 590 - Len(StrIn)
ma il problema è il conteggio in tempo reale...
la funzione len non mi dà il valore compreso i caratteri digitati in tempo reale, almeno finchè non salvo il record.
grazie cmq.
Giovanni