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

nxhujiee 2018-01-03

展開(kāi)全文

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

Sub 增大行間距()
    If Selection.Start = Selection.End Then
        '選擇文檔全部?jī)?nèi)容（從WholeStory可猜出Story應(yīng)是全部?jī)?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

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

轉(zhuǎn)藏 分享

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

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

來(lái)自： nxhujiee > 《個(gè)人資料》

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