SpaceAfter Property

Microsoft Publisher Visual Basic

expression.SpaceAfter

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example sets the spacing before and after the third paragraph in the first shape on the first page of the active publication to 6 points.

Sub SetSpacingBeforeAfterParagraph()
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _
            .TextRange.Paragraphs(3).ParagraphFormat
        .SpaceBefore = 6
        .SpaceAfter = 6
    End With
End Sub
		

This example sets spacing before and after all paragraphs in the first shape on the first page of the active publication to 6 points.

Sub SetSpacingBeforeAfterAllParagraph()
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _
            .TextRange.ParagraphFormat
        .SpaceBefore = 12
        .SpaceAfter = 6
    End With
End Sub