''''兩個實(shí)用的word宏

nxhujiee 2018-01-03

展開全文

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

Sub 增大行間距()
    If Selection.Start = Selection.End Then
        '選擇文檔全部內(nèi)容（從WholeStory可猜出Story應(yīng)是全部內(nèi)容的意思）
        Selection.WholeStory
        'ActiveDocument.Select
    End If

    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = .LineSpacing + 1
        ActiveWindow.Caption = ActiveDocument.FullName & " 【當(dāng)前行距 = " & 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 & " 【當(dāng)前行距 = " & CStr(.LineSpacing) & "】"
    End With
End Sub

本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自： nxhujiee > 《個人資料》

舉報(bào)/認(rèn)領(lǐng)