vbscript 删除空白段落

Posted 2021-05-21

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 删除空白段落相关的知识，希望对你有一定的参考价值。

Sub FormatParagraphs()

    Dim Para As Paragraph
    Dim i As Long

    Application.ScreenUpdating = False
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set Para = .Paragraphs(i)
            With Para
                If .Range.End - .Range.Start = 1 Then
                    .Range.Delete
                Else
                    .SpaceBefore = 6
                    .SpaceAfter = 6
                End If
            End With
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

以上是关于vbscript 删除空白段落的主要内容，如果未能解决你的问题，请参考以下文章