Hi Vivka! The code here below works ALWAYS. Thank you for your suggestions!
Quote:
Sub NoSpaceBetweenPara()
Dim aRng As Range, iType As Integer
Dim Para As Paragraph
On Error GoTo Leave 'if no footnotes
For iType = 1 To 2
Set aRng = ActiveDocument.StoryRanges(iType)
ActiveDocument.StoryRanges.Item(iType).Select
With Dialogs(wdDialogFormatParagraph)
.NoSpaceBetweenParagraphsOfSameStyle = False
.Execute
End With
Next
Selection.HomeKey Unit:=wdStory
Leave:
End Sub
|