[求助]关于守柔老师”空白段落的删除“那段代码，问个问题

duke008

Sub delblank()
'功能简介：在选中的文本中，对指定长度的段落进行删除，当LEN＝1时可对空白段落进行删除。
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
With Selection
For Each i In .Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
End With
MsgBox "共删除空白段落" & n & "个！"
Application.ScreenUpdating = True
End Sub

这是从《守柔word代码集》中找的代码，我根据自己的需要稍加修改了一下。

将网页内容复制到word时，有很多空白段落，用这段代码来解决确实很方便，但是有时候是一个空格或多个空格组成了一个段落，那么这段代码就不起作用了，怎样能将全是由空格组成的段落也删掉呢？

另：我现在经常要将网页中的文字复制到word，然后对其进行字体设置、加边框、删除空白段落等操作。我想编个宏再设个快捷键（假设为Ctrl＋B）让它一步到位，就是说我在网页中按Ctrl+C复制，到word中按Ctrl＋B就能实现以上所有操作，不知是否能实现。我想问题的关键是如何选中刚粘贴过来的内容，其它的我都会了。

守柔

参考:

http://club.excelhome.net/viewthread.php?tid=137722