''''兩個實用的word宏

nxhujiee 2018-01-03

展開全文

'兩個實用的word宏-2
'━━━━━━━━━━━━━━━━━━━━━━━━━
'2018年1月3日更新
'胡子修改版，增加了一個判斷，如果文檔中有選擇，則只對選擇區(qū)域操作，否則對全文操作

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