Word删除空白段落的宏代码是什么

word

Sub DelBlank()

Dim i As Paragraph， n As Long

屏幕

For Each i In ActiveDocument.Paragraphs 在活动文档的段落集合中循环

If Len(i.Range) = 1 Then 判断段落长段，此处可根据文档实际情况

i.Range.Delete 进行必要的修改可将任意长度段落删除

n = n + 1 计数

End If

Next

MsgBox 共删除空白段落n个!

Application.ScreenUpdating = True 恢复屏幕刷新

End Sub

代码简单，功能强大，希望对您有所帮助。

word删除空白段落的宏代码可以通过VBA编辑实现，例如：Sub RemoveEmptyParagraphs() Dim para As Paragraph For Each para In ActiveDocument.Paragraphs If para.Range.Text = vbCr Then para.Range.Delete End If Next para End Sub