microsoft.public.word.vba.general

"Greg Maxey" wrote:
> Nice job!

Oy, thanks!!

> I don't understand this part:
>> ' Or, if you want to define what characters can appear in words
>> explicitly ' (and ignore the rest):
>> ' Case "a" To "z", "@", "~", _
>> ' "$", "%", "§", "&", "A" To "Z", _
>> ' "0" To "9", "'", "-", "_"

You would replace the "Case Else" condition with this condition.
Only the characters listed would make it into "words".
All other characters would simply be removed (... nothing is done if they
are encountered).

Say if I take the original example sentence:

Word_this_and that KK857 9269875 King king King

and use

[...]
Case "a" To "z", "A" To "Z"
sWord = sWord & sChar
End Select

(notice that the numbers 0 to 9, and the underscore "_", neither appear
under the word delimiters now, nor under the word characters), I'd get

Wordthisand 1 3 /
that 1 15 /
KK 1 23 /
King 2 35 / 46 /
king 1 41 /

Regards,
Klaus