WORD自定义宏

Sub 标题1()
    Selection.Style = ActiveDocument.Styles("标题 1")
End Sub

Sub 标题2()
    Selection.Style = ActiveDocument.Styles("标题 2")
End Sub

Sub 蓝色文字()
    Selection.Font.Color = wdColorBlue
End Sub

Sub 删除整段()
    Selection.MoveDown Unit:=wdParagraph, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.TypeBackspace
End Sub

Sub 显示导航目录()
    If ActiveWindow.DocumentMap = True Then
        ActiveWindow.DocumentMap = False
    Else
        ActiveWindow.DocumentMap = True
    End If
End Sub

Sub 红色文字()
    Selection.Font.Color = wdColorRed
End Sub

Sub 换行()
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
End Sub

Sub 全屏显示()
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub

Sub 标题3()
    Selection.Style = ActiveDocument.Styles("标题 3")
End Sub

Sub 浅色文字()
    Selection.Font.Color = wdColorGray25
End Sub

Sub 黑色文字()
    Selection.Font.Color = wdColorBlack
End Sub

Sub 行前插入空行()
    Selection.HomeKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

Sub 回到前一位置()
    Application.GoBack
End Sub

Sub 复制当前行()
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Sub 增强复制()
    If Selection.Type = wdSelectionIP Or Selection.Type = wdNoSelection Then  ‘若选择为空
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Copy
        ‘复制整行  ‘MsgBox "没有选择"
    Else  ‘若选择不为为空
        ‘正常操作
        Selection.Copy
    End If
End Sub

Sub 增强剪切()
    If Selection.Type = wdSelectionIP Or Selection.Type = wdNoSelection Then  ‘若选择为空
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Cut
        ‘剪切整行  ‘MsgBox "没有选择"
    Else  ‘若选择不为为空
        ‘正常操作
        Selection.Cut
    End If
End Sub