Macro find and delete

[Hans G]

Does anyone know how to make a macro that finds a text in a document and
selects from that point tot another point, also seeking.
For example:

In the text below, I want the macro select all the lines from A till (the
first) C and then delete that part, of replace it with.....

Hans

F

B

B

A

C

C

A

B

B

C

B

C

B

D

D

B

D

D

C

C

D

B

C

C

D

C

B

B

D

D

A

C

D

A

C

Z

B

 

[Dave Lett]

Hi Hans,

As long as you're sure that "A" and "C" are unique, then you can use the
following:

With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = "A*C"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Text = "Replace"
End With
.Execute Replace:=wdReplaceAll
End With
End With

HTH,
Dave

 

[Hans G]

Great Thanks. Its less complex than I thought.

Hans