各位大神，能不能帮忙修改VBA？

晨晓之黎

求VBA选择区域：设置字体：五号字，段后改为0

修改前

修改前

修改后


这是我录制的宏，发现运行时需要按2次才行，有点麻烦。

晨晓之黎

1. Sub 五号字()
   
2. '
   
3. ' 五号字 宏
   
4. '
   
5. '
   
6.     Selection.Font.Size = 10.5
   
7.     With Selection.ParagraphFormat
   
8.         .LeftIndent = CentimetersToPoints(0)
   
9.         .RightIndent = CentimetersToPoints(0)
   
10.         .SpaceBefore = 0
    
11.         .SpaceBeforeAuto = False
    
12.         .SpaceAfter = 0
    
13.         .SpaceAfterAuto = False
    
14.         .LineSpacingRule = wdLineSpaceSingle
    
15.         .Alignment = wdAlignParagraphJustify
    
16.         .WidowControl = True
    
17.         .KeepWithNext = False
    
18.         .KeepTogether = False
    
19.         .PageBreakBefore = False
    
20.         .NoLineNumber = False
    
21.         .Hyphenation = False
    
22.         .FirstLineIndent = CentimetersToPoints(0)
    
23.         .OutlineLevel = wdOutlineLevelBodyText
    
24.         .CharacterUnitLeftIndent = 0
    
25.         .CharacterUnitRightIndent = 0
    
26.         .CharacterUnitFirstLineIndent = 0
    
27.         .LineUnitBefore = 0
    
28.         .LineUnitAfter = 0
    
29.         .MirrorIndents = False
    
30.         .TextboxTightWrap = wdTightNone
    
31.         .AutoAdjustRightIndent = False
    
32.         .DisableLineHeightGrid = True
    
33.         .FarEastLineBreakControl = True
    
34.         .WordWrap = True
    
35.         .HangingPunctuation = True
    
36.         .HalfWidthPunctuationOnTopOfLine = True
    
37.         .AddSpaceBetweenFarEastAndAlpha = True
    
38.         .AddSpaceBetweenFarEastAndDigit = True
    
39.         .BaseLineAlignment = wdBaselineAlignAuto
    
40.     End With
    
41. End Sub

复制代码

413191246se

* 楼主，请选定文字后应用下面的宏：
   
* 取消段后间距（以“行”为单位）(注意：/行后间距/这条语句提到了/磅后间距/这条语句之前才管用!)
    With Selection.ParagraphFormat
        .LineUnitAfter = 0
        .SpaceAfter = 0
    End With
   
* 取消段后间距（以“磅”为单位）
Selection.ParagraphFormat.SpaceAfter = 0

晨晓之黎

413191246se 发表于 2020-12-25 02:01
* 楼主，请选定文字后应用下面的宏：
   
* 取消段后间距（以“行”为单位）(注意：/行后间距/这条语句提 ...

解决了，谢谢大神！