word横线怎么剪短？如何快速实现？
作者：佚名|分类：Word|浏览：90|发布时间：2025-03-29 20:51:25
Word横线怎么剪短？如何快速实现？
一、引言
在Word文档编辑过程中，我们经常会遇到需要调整横线长度的情况。有时候，横线过长会影响文档的美观度，甚至影响阅读体验。那么，如何快速剪短Word中的横线呢？本文将为您详细介绍几种方法。
二、Word横线剪短方法
1. 使用“格式”工具栏
（1）选中需要剪短的横线。
（2）点击“格式”工具栏中的“边框”按钮。
（3）在弹出的“边框和底纹”对话框中，选择“边框”选项卡。
（4）在“设置”区域，选择“自定义”。
（5）在“预览”区域，点击横线，然后调整横线长度。
（6）点击“确定”按钮，完成横线剪短。
2. 使用快捷键
（1）选中需要剪短的横线。
（2）按下“Ctrl+Shift+X”组合键，打开“自定义边框”对话框。
（3）在“自定义边框”对话框中，调整横线长度。
（4）点击“确定”按钮，完成横线剪短。
3. 使用代码
（1）选中需要剪短的横线。
（2）按下“Alt+F11”组合键，打开VBA编辑器。
（3）在VBA编辑器中，插入一个新模块。
（4）在模块中输入以下代码：
```vba
Sub 短横线()
Selection.ParagraphFormat.SpaceBefore = 0
Selection.ParagraphFormat.SpaceAfter = 0
Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
Selection.ParagraphFormat.LineSpacing = 1
Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPattern = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPattern = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColorIndex = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColorIndex = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternType = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternType = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternTile = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternTile = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternHorizontal = wdPatternHorizontal
Selection.ParagraphFormat.Shading.BackgroundPatternVertical = wdPatternVertical
Selection.ParagraphFormat.Shading.ForegroundPatternHorizontal = wdPatternHorizontal
Selection.ParagraphFormat.Shading.ForegroundPatternVertical = wdPatternVertical
Selection.ParagraphFormat.Shading.BackgroundPatternAngle = wdPatternAngle0
Selection.ParagraphFormat.Shading.ForegroundPatternAngle = wdPatternAngle0
Selection.ParagraphFormat.Shading.BackgroundPatternHorizontalScale = wdPatternScaleNormal
Selection.ParagraphFormat.Shading.BackgroundPatternVerticalScale = wdPatternScaleNormal
Selection.ParagraphFormat.Shading.ForegroundPatternHorizontalScale = wdPatternScaleNormal
Selection.ParagraphFormat.Shading.ForegroundPatternVerticalScale = wdPatternScaleNormal
Selection.ParagraphFormat.Shading.BackgroundPatternOffsetX = wdPatternOffsetNone
Selection.ParagraphFormat.Shading.BackgroundPatternOffsetY = wdPatternOffsetNone
Selection.ParagraphFormat.Shading.ForegroundPatternOffsetX = wdPatternOffsetNone
Selection.ParagraphFormat.Shading.ForegroundPatternOffsetY = wdPatternOffsetNone
Selection.ParagraphFormat.Shading.BackgroundPatternWrap = wdPatternWrapNone
Selection.ParagraphFormat.Shading.ForegroundPatternWrap = wdPatternWrapNone
Selection.ParagraphFormat.Shading.BackgroundPatternTransparent = wdPatternTransparent
Selection.ParagraphFormat.Shading.ForegroundPatternTransparent = wdPatternTransparent
Selection.ParagraphFormat.Shading.BackgroundPatternColor2 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex2 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor2 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex2 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor3 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex3 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor3 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex3 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor4 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex4 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor4 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex4 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor5 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex5 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor5 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex5 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor6 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex6 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor6 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex6 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor7 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex7 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor7 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex7 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor8 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex8 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor8 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex8 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor9 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex9 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor9 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex9 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor10 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex10 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor10 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex10 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor11 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex11 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor11 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex11 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor12 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex12 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor12 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex12 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor13 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex13 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor13 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex13 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor14 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex14 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor14 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex14 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor15 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex15 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor15 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex15 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor16 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex16 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor16 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex16 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor17 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex17 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor17 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex17 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor18 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex18 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor18 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex18 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor19 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex19 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor19 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex19 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor20 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex20 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor20 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex20 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor21 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex21 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor21 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex21 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor22 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex22 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor22 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex22 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor23 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex23 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor23 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex23 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor24 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex24 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor24 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex24 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor25 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex25 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor25 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex25 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor26 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex26 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor26 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex26 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor27 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex27 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor27 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex27 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor28 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex28 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor28 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex28 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor29 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex29 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor29 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex29 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor30 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex30 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor30 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex30 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor31 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex31 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor31 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex31 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor32 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex32 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor32 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex32 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor33 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex33 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor33 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex33 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor34 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex34 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor34 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex34 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor35 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex35 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor35 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex35 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor36 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex36 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor36 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex36 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor37 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex37 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor37 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex37 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor38 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex38 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor38 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex38 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor39 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex39 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor39 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex39 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor40 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex40 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor40 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex40 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor41 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex41 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor41 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex41 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor42 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex42 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor42 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex42 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor43 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex43 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor43 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex43 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor44 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex44 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor44 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex44 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor45 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex45 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor45 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex45 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor46 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex46 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor46 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex46 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor47 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex47 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor47 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex47 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor48 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex48 = wdPatternNone
Selection.ParagraphFormat.Shading.ForegroundPatternColor48 = wdColorNone
Selection.ParagraphFormat.Shading.ForegroundPatternIndex48 = wdPatternNone
Selection.ParagraphFormat.Shading.BackgroundPatternColor49 = wdColorNone
Selection.ParagraphFormat.Shading.BackgroundPatternIndex49 = wdPatternNone
Selection.ParagraphFormat.Shading.Fore