search and delete makro?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Eric - 03 Apr 2006 08:10 GMT

Kind embarrassing, but if I want to search for () and delete the parenthesis
and everyting in between, ie if I have something like "(bla bla bla)", I
want to delete both the left and right parenthesis and the text in between.
Smartest way to do that?

Any input appreciated.

/d

Reply to this Message

Helmut Weber - 03 Apr 2006 09:55 GMT

Hi Eric,

Sub test0987()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range

With rDcm.Find
.Text = "\(*\)"
.MatchWildcards = True
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub

But think, whether this is really what you want.

And you might have to do some more cleaning
of your Doc as a result of the code above.

Signature

Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

Eric - 03 Apr 2006 11:43 GMT

Alles gut! :)

/e

> Hi Eric,
>
[quoted text clipped - 14 lines]
> And you might have to do some more cleaning
> of your Doc as a result of the code above.

Reply to this Message