Searching for spaces

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Joanne - 28 Feb 2005 20:59 GMT

Hello, I wrote the following code to replace any instance of a semi colon and
one or more spaces following, but it doesn't seem to do anything. No errors,
just no result. Any ideas why this doesn't work?

Thanks very much for any help you can provide.

Sub GetSemis()
Set rng = ActiveDocument.Range
With rng.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue

.Text = (";& Chr(32){1,}")
With .Replacement
.ClearFormatting
.Text = "Hello"
End With
.Execute Replace:=wdReplaceAll
End With

End Sub

Reply to this Message

Dave Lett - 28 Feb 2005 21:09 GMT

Hi Joanne,

You have your search string wrong. It's actually looking for the ampersand,
a space, Chr(32). You also haven't specifically started a wildcard search.
Try the following instead:

With Selection.Find
.ClearFormatting
.Text = "; {1,}"
With .Replacement
.ClearFormatting
.Text = "Hello"
End With
.MatchWildcards = True
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

HTH,
Dave

> Hello, I wrote the following code to replace any instance of a semi colon and
> one or more spaces following, but it doesn't seem to do anything. No errors,
[quoted text clipped - 18 lines]
>
> End Sub

Reply to this Message

Joanne - 28 Feb 2005 21:23 GMT

Thank you, it worked!

> Hi Joanne,
>
[quoted text clipped - 42 lines]
> >
> > End Sub

Reply to this Message