设置逐磅增减行距的快捷键
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
大家在使用Word过程中是否感觉排版时总是差点什么东西，就是不太方便。比如使用快捷键Ctrl+Shift+>可以逐号设置文字大小，但总就是找不到可以逐磅设置段落的快捷键，下面我给大家介绍一种方法，拙见，见笑了。但要收1币，只是让大家不要只获取不贡献。
打开VBA编辑器，将以下代码复制到Thisdocument中，保存后退出，再进入Word时就可以实现Ctrl+Shitf+向右键 为逐2磅增加段落、Ctrl+Shitf+向左键 为逐2磅缩小段落的功能了。
Sub LineSpacingA() '为逐2磅增加段落
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = .LineSpacing + 2
.Alignment = wdAlignParagraphJustify
End With
End Sub
Sub LineSpacingB() '为逐2磅缩小段落
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = .LineSpacing - 2
.Alignment = wdAlignParagraphJustify
End With
End Sub
Private Sub Document_New()
On Error Resume Next
'定义 Ctrl+Shitf+向右键 为逐2磅增加段落，命令“LineSpacingA”
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(39, wdKeyControl, wdKeyShift), _
KeyCategory:=wdKeyCategoryCommand, Command:="LineSpacingA"
'定义 Ctrl+Shitf+向左键 为逐2磅缩小段落，命令“LineSpacingB”
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(37, wdKeyControl, wdKeyShift), _
KeyCategory:=wdKeyCategoryCommand, Command:="LineSpacingB"
End Sub
Private Sub Document_Open()
On Error Resume Next
'定义 Ctrl+Shitf+向右键 为逐2磅增加段落，命令“LineSpacingA”
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(39, wdKeyControl, wdKeyShift), _
KeyCategory:=wdKeyCategoryCommand, Command:="LineSpacingA"
'定义 Ctrl+Shitf+向左键 为逐2磅缩小段落，命令“LineSpacingB”
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(37, wdKeyControl, wdKeyShift), _
KeyCategory:=wdKeyCategoryCommand, Command:="LineSpacingB"
End Sub