Keep this from going out of range?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ed from AZ - 04 Feb 2008 17:36 GMT

I have code which is supposed to find instances of 2 or more spaces
and replace them with one space. It's supposed to work within a set
range, but it keeps going out of the range all the way to the end of
the document. How do I stop it at the end of the range?

Ed

With oRng.Find
.ClearFormatting
.Text = "[! ] {2,}[! ]"
.MatchWildcards = True
While .Execute
Select Case oRng.Characters.First.Text
Case Is = "."
oRng.Text = oRng.Characters.First & " " &
oRng.Characters.Last
Case Is = ":"
oRng.Text = oRng.Characters.First & " " &
oRng.Characters.Last
Case Is = "-"
oRng.Text = oRng.Characters.Last
Case Else
oRng.Text = oRng.Characters.First & " " & oRng.Characters.Last
End Select
oRng.Collapse Direction:=wdCollapseEnd
Wend
End With

Reply to this Message

Jay Freedman - 04 Feb 2008 18:33 GMT

Hi Ed,

That's a pain, isn't it? :-S It's one of a number of situations where VBA
behaves differently from the same operation in the UI.

Declare another Range object, say

Dim oContainRange As Range
Set oContainRange = Selection.Range

Then change the .Execute line to

While .Execute And oRng.InRange(oContainRange)

The second part of the condition will be false if oRg is outside
oContainRange.

Signature

Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

> I have code which is supposed to find instances of 2 or more spaces
> and replace them with one space. It's supposed to work within a set
[quoted text clipped - 23 lines]
> Wend
> End With

Reply to this Message

Ed from AZ - 04 Feb 2008 19:43 GMT

Beautiful!! Thank you, Jay! I didn't know about that InRange - I
always tried something like setting another range and comparing the
ends or such. This is going to make a _lot_ of things much easier!

Ed

> Hi Ed,
>
[quoted text clipped - 49 lines]
>
> - Show quoted text -

Reply to this Message