Replacing and Formatting at the Same Time

Jim
The following code will change the spacing of just the one paragraph. Place the cursor anywhere in the paragraph and run the macro. Note that if the paragraph has its style re-applied then the spacings will revert to those of the style.

With Selection.Paragraphs(1).Range.ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.SpaceAfter = 0
.SpaceBefore = 0
End With

The following code will change the spacing of the selected paragraph's style so that all paragraphs that use the style will have their spacing changed.

With ActiveDocument.Styles(Selection.Paragraphs(1).Style).ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.SpaceAfter = 0
.SpaceBefore = 0
End With

Phil Reinie,
That is what I'm trying to eliminate; the 6 points of white space before and after a paragraph using a macro.
Recording the process does not do the trick.
I am familiar with editing macros, but can't figure out what to place in the macro to accomplish this.

Thanks to everyone who replied.
Jim

gbjim.andrews

Is the space above the paragraph its own paragraph or does the paragraph you with "space before" just greater space than you want?

KenE basically covered the first one:
where you are replacing paragraphs with only "white space" (no text) with no paragraph (IE, replace something with nothing (essentially delete the no-text paragraph)), ...

and in the second you can change the style of the paragraph to have zero (or whatever) points of space you want (before or after, or both) for the paragraph.

Body text paragraph style has 6 points of spacing after each paragraph, but Normal paragraph has zero point of spacing after. (They both have zero points before the paragraph.) So you could also select all paragraphs of one type (style) and change them to a different style.

Peter: Step 5 tells Word to use, as replacement text, the first (1) occurrence of text within parentheses from the "Find What" text.

Thus, the 1 results in whatever is matched by the asterisk (*) in the "Find What" text.

-Allen

This is described as an easy process, but not to me! Can someone explain to me what Step 5 does?

The easiest way to create your macro is to use Record Macro then run Find and Replace with the three Find and Replace string pairs. The three macros can then be combined into one. The strings are:

Change multiple spaces to one space:
[^32]{2,}
^32"

Remove blank paragraphs
[^13]{2,}
^p

Remove all spaces at end of paragraph:
^32{1,}^13
^p

Don't forget to turn on Use Wildcards.

Great!
I've been trying to use macro to:
1. set all to single space
2. remove space above paragraph
3. remove space after paragraph

All to no avail.
Any ideas?

This technique could be used with simple embedded HTML tag pairs such as <I> </I>, <B> </B> or <H1> </H1>. A document prepared with a basic editor could be opened in Word and the tags replaced by the appropriate formatting. In step 6 of the tip replace the shortcut (Ctrl+i) by another formatting shortcut. For more complex formatting click on the Format button, Click Font ... option and select the required combination of formatting such as Font, Font style, Font size, Underline.