自定义宏把Word打造成全快捷键编辑器

自定义快捷键

折叠所有标题

Word选项—自定义功能区—自定义键盘—不在功能区内的命令—ColllapseAllHeadings

展开所有标题

Word选项—自定义功能区—自定义键盘—不在功能区内的命令—ExpandAllHeadings

全屏快捷键 Alt+V+U, esc退出 可通过录制宏设定F11全屏

   

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

Sub 双屏()
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupNone
.View = wdRevisionsViewFinal
End With
ActiveWindow.ActivePane.View.Zoom.Percentage = 92
End Sub

Sub 设置所有题注为蓝色() '设置所有交叉引用的格式
    Dim aField As Word.Field
      
    For Each aField In ActiveDocument.Fields
        Debug.Print aField.Result.Text
        If aField.Type = wdFieldRef Then
            ' aField.Result.Style = "正文"
            aField.Result.Font.ColorIndex = wdBlue
        End If
    Next aField
End Sub