Simple Word macro to indent and space?

[Hikertrash]

I'm sure it can't be that hard but for the life on me can't figure it out. I have a list of about 1000 names and nicknames pulled from a Excel spreadheet. See example.

Aergia
J Ardenia Gaines
Aesculus
Donovan Maguigan
After
Lawrence Salavatore
Agnastie Monk, The
Douglas Page
Alien
Suzanne Goulet
All Smiles
Mike Campbell
Aloha!
Aloha Ann Pfeil
Always Bonnie & Sometimes Clyde
Mary Wilcoxson & Phil

I just need it to look like this

Aergia
J Ardenia Gaines

Aesculus
Donovan Maguigan

After
Lawrence Salavatore

Agnastie Monk, The
Douglas Page

Alien
Suzanne Goulet

All Smiles
Mike Campbell

Aloha!
Aloha Ann Pfeil

Always Bonnie & Sometimes Clyde
Mary Wilcoxson & Phil

Indenting the real name and spacing between them.

Edit, for some reason the post didnt pick up the three space indentation. But upon review I'll settle for the results with only a space between names without the indentation.

[mrice]

This is a bit crude but should work.

Please Login or Register  to view this content.

I've set the loop to exit after 1000 iterations - so you may need to adjust this.

[Hikertrash]

mrice, that works, thanks so much, but the indent is too much. I only need a two or three space indent

Aloha!
(with the real name well past the nick name) Ann Pfeil

[Hikertrash]

Nevermind, I got it. I ran your macro then reset the tab stop. Got just what I needed, thanks!

[mrice]

This will do it with spaces.

Please Login or Register  to view this content.

[Hikertrash]

Very good, thanks again!

[macropod]

You can actually do this without a macro, using a wildcard Find/Replace, where:
Find = [!^13]{1,}
Replace = ^t^&^p
and the 'Find' format is specified as 'Not Bold'.

As a macro, this becomes:

Please Login or Register  to view this content.

The above code should also run much faster than what you're now using.