国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Sub DelBlank()

Dim i As Paragraph, n As Integer

Application.ScreenUpdating = False

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

代碼輸入完畢，單擊“工具欄”中的“運行”按鈕，執(zhí)行這段代碼。這時，會彈出一個消息窗口，告訴你一共刪除了多少空行。