Sub ParaNoSpace()


'
' keyboard Alt+p

With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False


End With
End Sub

Thank you for your suggestions

It works OK if you select the paragraph(s) you wish to process.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Yes, I know you have to select the paras. That's what my problem is--I select them but the macro doesn't work for me.

We can't see what you have selected. Your code doesn't impact the paragraphs before or after the selection so if you only selected a single paragraph then the code could have zero impact on what you see on screen.

There could be complicating factors like borders, table cell spacing or frames depending on what you selected

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Why are you applying brute-force formatting instead of using a suitable paragraph Style?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

There is a standard built-in paragraph style that does exactly this: No Spacing

Thank you all for your responses.