许多人需要应用于其文档的最后一项修饰是精确调整其段落之间的间距以实现所需的外观。 Word对段落之间的间距提供了很多控制。通过调整“段落”对话框中的“前”和“后”值来执行此操作。

如果您在段落之前或之后进行了大量的空间调整，则连续显示“段落”对话框并进行调整可能会变得很乏味。不幸的是，Word没有包含任何键盘快捷键，可让您快速调整这种间距。

但是，您可以通过开发自己的宏来实现同等的易用性。

例如，以下宏将调整段落后的空格单个点。

Sub SAPlus()

Dim SA As Integer    SA = Selection.ParagraphFormat.SpaceAfter + 1    If SA > 1584 Then SA = 1584    Selection.ParagraphFormat.SpaceAfter = SA End Sub

请注意，该宏仅允许您将段落后的空间增加到1584点。这是因为这是Word允许的最大值。较高的值会产生错误。宏上的微小变化会导致一个宏减小段落后的空间：

Sub SAMinus()

Dim SA As Integer    SA = Selection.ParagraphFormat.SpaceAfter - 1    If SA < 0 Then SA = 0    Selection.ParagraphFormat.SpaceAfter = SA End Sub

注意，可以很容易地将这些宏修改为使用其他一些值或公式来计算间距的增量或减量。例如，如果需要，您可以一次增加或减少6点。您还可以更改宏，以便通过将每次出现的“之后”更改为“之前”，将它们应用于段落前的空格。

使这些宏真正有用的最后一个技巧是将它们分配给键盘组合或工具栏上的按钮。您可以使用_WordTips其他版本中提供的信息来做到这一点。_

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（8960）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

快速调整段落间距。