欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Word刪除空白段落的宏代碼介紹

  發(fā)布時(shí)間:2013-04-03 17:08:03   作者:佚名   我要評(píng)論
通過(guò)如下的宏代碼,您就可以在WORD中刪除空白的段落。

通過(guò)如下的宏代碼,您就可以在WORD中刪除空白的段落。

Sub DelBlank()

Dim i As Paragraph, n As Long

Application.ScreenUpdating = False ’關(guān)閉屏幕刷新

For Each i In ActiveDocument.Paragraphs ’在活動(dòng)文檔的段落集合中循環(huán)

If Len(i.Range) = 1 Then ’判斷段落長(zhǎng)段,此處可根據(jù)文檔實(shí)際情況

i.Range.Delete ’進(jìn)行必要的修改可將任意長(zhǎng)度段落刪除

n = n + 1 ’計(jì)數(shù)

End If

Next

MsgBox "共刪除空白段落" & n & "個(gè)!"

Application.ScreenUpdating = True ’恢復(fù)屏幕刷新

End Sub

代碼簡(jiǎn)單,功能強(qiáng)大,希望對(duì)您有所幫助。

相關(guān)文章

最新評(píng)論