Determine first text character in paragraph

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jbc - 30 Dec 2005 02:57 GMT

Hello,

In certain instances, I need word to select and delete up to the first
"true" character of a paragraph. What I would need it to select and delete
are tabs and/or field codes.

Thanks

Reply to this Message

Helmut Weber - 30 Dec 2005 10:35 GMT

Hi,

what is a true character?

Example for "a" to "z" or "A" to "Z" or a field:

With Selection.Paragraphs(1).Range
While .Characters(1) Like "[A-Za-z]" = False Or _
.Characters(1).Fields.Count = 1
If .Characters(1).Fields.Count = 1 Then
.Characters(1).Fields(1).Delete
Else
.Characters(1).Delete
End If
Wend
End With

Or, if you want to delete fields and not printable characters
including space, then the condition would be:

While Asc(.Characters(1)) < 33 Or _
.Characters(1).Fields.Count = 1

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

jbc - 30 Dec 2005 12:07 GMT

Thank you for all of your help Helmut.

> Hi,
>
[quoted text clipped - 18 lines]
> While Asc(.Characters(1)) < 33 Or _
> .Characters(1).Fields.Count = 1

Reply to this Message