Question

我有这个小宏，其目的是删除所有空段落（^ p）然后选择所有段落并在之前和之后添加空格（每个6点）。

这是到目前为止的代码

Sub format()

ActiveDocument.Range.Select

' Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = "^p^p"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll


iParCount = ActiveDocument.Paragraphs.Count
For J = 1 To iParCount
    ActiveDocument.Paragraphs(J).SpaceAfter = 6
    ActiveDocument.Paragraphs(J).SpaceBefore = 6
Next J
End Sub

然而，当我运行它时，一切都变成了一个段落。我喜欢（^ p是空段落）

paragraph 1 
^p
paragraph 2 
^p
paragraph 3

我总是得到

paragraph 1 paragraph 2 paragraph 3

我做错了什么？谢谢！

Answer 1

您需要使用循环执行此操作并从文档末尾开始，以便从计数中删除已删除的段落。

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

Word VBA宏清理空段落并在＆amp;之后添加空格之前

1 个答案: