'两个实用的word宏-2
'━━━━━━━━━━━━━━━━━━━━━━━━━
'2018年1月3日更新
'胡子修改版，增加了一个判断，如果文档中有选择，则只对选择区域操作，否则对全文操作


Sub 增大行间距()
    If Selection.Start = Selection.End Then
        '选择文档全部内容（从WholeStory可猜出Story应是全部内容的意思）
        Selection.WholeStory
        'ActiveDocument.Select
    End If

    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = .LineSpacing + 1
        ActiveWindow.Caption = ActiveDocument.FullName & " 【当前行距 = " & CStr(.LineSpacing) & "】"
    End With
    'Sleep 300
    'ActiveWindow.Caption = ActiveDocument.FullName
End Sub


Sub 减小行间距()
    If Selection.Start = Selection.End Then
        Selection.WholeStory
    End If

    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = .LineSpacing - 1
        ActiveWindow.Caption = ActiveDocument.FullName & " 【当前行距 = " & CStr(.LineSpacing) & "】"
    End With
End Sub