Word VBA清除空白段落并在后面和前面添加空格的宏
Word VBA清除空白段落并在后面和前面添加空格的宏
提问于 2017-08-30 06:51:50
我有一个小的宏，它的目的是删除所有空段落(^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然而，当我运行它时，所有内容都变成了一个单独的段落。假设我有like (^p是空段落)
paragraph 1
^p
paragraph 2
^p
paragraph 3我总是得到
paragraph 1 paragraph 2 paragraph 3我做错了什么？谢谢!
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-08-30 09:47:00
您需要使用循环来执行此操作，并从文档的末尾开始，以便从计数中删除删除的段落。
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45949409
复制相关文章
相似问题
腾讯云开发者
