录制宏 段前段后各5行，运用宏为什么是25磅

天空飘过啥

想用宏替换，录制时段前段后给的是5行，录制好后却是25磅，能否批定以行为单位

Sub Macro5()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBefore = 25
        .SpaceBeforeAuto = False
        .SpaceAfter = 25
        .SpaceAfterAuto = False
        .LineUnitBefore = 5
        .LineUnitAfter = 5
        .WordWrap = True
    End With
    Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
    With Selection.Find
        .Text = "^13第[一二三四五六七八九十]{1,3}章　*{1,8}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

413191246se

Sub Macro1()
    With Selection.ParagraphFormat
        .LineUnitBefore = 1.5
        .LineUnitAfter = 2.5
    End With
End Sub

天空飘过啥

413191246se 发表于 2018-4-19 23:17
Sub Macro1()
    With Selection.ParagraphFormat
        .LineUnitBefore = 1.5

谢谢您的帮助
但是，你这代码是选择应该，不是我查找替换

413191246se

不明白楼主什么意思，请详细说明一下。

天空飘过啥

413191246se 发表于 2018-4-20 22:15
不明白楼主什么意思，请详细说明一下。

我也忘了附上要求，不好意思！
就是通过查找
第一章 ***
第二章 **
第三章 **
.....
开头的段落，然后替换段前段后都为5行

jiminyanyan

Sub Word()
    Dim i As Paragraph, mt, oRang As Range, n%, m%
    With CreateObject("vbscript.regexp")
        .Pattern = "^第[^章]+章"
        .Global = True: .IgnoreCase = False: .MultiLine = True
        For Each i In ActiveDocument.Paragraphs
            For Each mt In .Execute(i.Range.Text)
                m = mt.FirstIndex: n = mt.Length
                  i.LineUnitBefore = 1.5
                  i.LineUnitAfter = 2.5
            Next
        Next
    End With
End Sub

jiminyanyan

............

jiminyanyan

回复了，要审核，你等等把。。。。。

天空飘过啥

jiminyanyan 发表于 2018-4-20 23:00
Sub Word()
    Dim i As Paragraph, mt, oRang As Range, n%, m%
    With CreateObject("vbscript.rege ...

谢谢，能达到要求。
能否再改一下，第几章，不单是个位数，也有十几，二十几章的

天空飘过啥

jiminyanyan 发表于 2018-4-20 23:00
Sub Word()
    Dim i As Paragraph, mt, oRang As Range, n%, m%
    With CreateObject("vbscript.rege ...

可以了，刚才是我打开的文档错了

谢谢！！