Find & Replace Macro

I have a text document (that I can open in Word) that I need to do a Find &
Replace on 9624 records. The same words appear at the start of each record.
I need to do a Find on those words, and then replace the word with 20 'Manual
Returns' and the original words. In short, I need to add 20 blank lines
between each record. Is there an easy way to do this? Any help would be
greatly appreciated. Thank you!!

Bear
Mon Apr 16 10:14:04 CDT 2007

Neal:

You should be able to do this with Find & Replace, without recourse to VBA.

Find: Xxxx
Replace with: ^p^p^p^p ... ^p^p^pXxxx

The elipses are mine -- you'd actually enter ^p twenty times.

If that's too much for you or Word, put a unique character in front of the
text, then replace that character with five or ten returns at a time.

Find: Xxxx
Replace with: [@]Xxxx

The "[@]" is exactly what I'd enter, as it provides a unique but easily
recognizable marker. Then,

Find: [@]
Replace with: ^p^p^p^p^p^p^p^p^p^p[@]

Do that twice, then remove the special mark by replacing it with nothing.

Find: [@]
Replace with:

Bear

"Neal" wrote:

> I have a text document (that I can open in Word) that I need to do a Find &
> Replace on 9624 records. The same words appear at the start of each record.
> I need to do a Find on those words, and then replace the word with 20 'Manual
> Returns' and the original words. In short, I need to add 20 blank lines
> between each record. Is there an easy way to do this? Any help would be
> greatly appreciated. Thank you!!

Neal
Mon Apr 16 10:30:04 CDT 2007

Thank you so much!! This worked perfectly!! Thank you!!

"Bear" wrote:

> Neal:
>
> You should be able to do this with Find & Replace, without recourse to VBA.
>
> Find: Xxxx
> Replace with: ^p^p^p^p ... ^p^p^pXxxx
>
> The elipses are mine -- you'd actually enter ^p twenty times.
>
> If that's too much for you or Word, put a unique character in front of the
> text, then replace that character with five or ten returns at a time.
>
> Find: Xxxx
> Replace with: [@]Xxxx
>
> The "[@]" is exactly what I'd enter, as it provides a unique but easily
> recognizable marker. Then,
>
> Find: [@]
> Replace with: ^p^p^p^p^p^p^p^p^p^p[@]
>
> Do that twice, then remove the special mark by replacing it with nothing.
>
> Find: [@]
> Replace with:
>
> Bear
>
> "Neal" wrote:
>
> > I have a text document (that I can open in Word) that I need to do a Find &
> > Replace on 9624 records. The same words appear at the start of each record.
> > I need to do a Find on those words, and then replace the word with 20 'Manual
> > Returns' and the original words. In short, I need to add 20 blank lines
> > between each record. Is there an easy way to do this? Any help would be
> > greatly appreciated. Thank you!!

hayes
Mon Apr 16 15:06:02 CDT 2007

[@] would work great unles the user has email address in his text...

oh, wouldn't that be a mess
--
Chris Hayes
Still a beginner (only 12 years)


"Bear" wrote:

> Neal:
>
> You should be able to do this with Find & Replace, without recourse to VBA.
>
> Find: Xxxx
> Replace with: ^p^p^p^p ... ^p^p^pXxxx
>
> The elipses are mine -- you'd actually enter ^p twenty times.
>
> If that's too much for you or Word, put a unique character in front of the
> text, then replace that character with five or ten returns at a time.
>
> Find: Xxxx
> Replace with: [@]Xxxx
>
> The "[@]" is exactly what I'd enter, as it provides a unique but easily
> recognizable marker. Then,
>
> Find: [@]
> Replace with: ^p^p^p^p^p^p^p^p^p^p[@]
>
> Do that twice, then remove the special mark by replacing it with nothing.
>
> Find: [@]
> Replace with:
>
> Bear
>
> "Neal" wrote:
>
> > I have a text document (that I can open in Word) that I need to do a Find &
> > Replace on 9624 records. The same words appear at the start of each record.
> > I need to do a Find on those words, and then replace the word with 20 'Manual
> > Returns' and the original words. In short, I need to add 20 blank lines
> > between each record. Is there an easy way to do this? Any help would be
> > greatly appreciated. Thank you!!