[分享]空白段落的删除问题

linqiang0816

第22楼的文章中的空行是用“人工换行符 shift+enter生成的”来分段的，当然就不能用斑竹的宏来用啦，版主的宏查找的是“回车标记 enter键生的”，可以用查找和替换来操作，但是至于用宏怎么来操作，我就不知道了，也想问问斑竹。

还有一个问题，我发现如果在空行标记前如果有空格（使得该“空白段”的长度不等于1的时候），版主的宏也就无法识别了，这样也许只能配合其他的操作将空格删除后再运行才行，可不可以把宏设计成有空格的空白段落也能删除呢？

守柔

QUOTE:

以下是引用linqiang0816在2007-2-14 16:41:00的发言：

第22楼的文章中的空行是用“人工换行符 shift+enter生成的”来分段的，当然就不能用斑竹的宏来用啦，版主的宏查找的是“回车标记 enter键生的”，可以用查找和替换来操作，但是至于用宏怎么来操作，我就不知道了，也想问问斑竹。

还有一个问题，我发现如果在空行标记前如果有空格（使得该“空白段”的长度不等于1的时候），版主的宏也就无法识别了，这样也许只能配合其他的操作将空格删除后再运行才行，可不可以把宏设计成有空格的空白段落也能删除呢？

这是很古老的一个贴子了，我在贴子中说了，这是我的WORD VBA成长之路。

关于空白、空格、空行、空白段落的删除，直接使用查找替换即可以方便进行，也可以录制成宏。

有关空白、空格、空行、空白段落的删除，您可以查找相关贴子，《WORD非常接触》中有详细描述。

如果楼主想使用VBA解决，请提供实例，谢谢。

linqiang0816

谢谢版主，《WORD非常接触》我们也刚开始接触，现在正在学里面的快捷键；关于如何用宏来做，我先在论坛淘淘，以后再问斑竹。

后天就是大年三十了，祝斑竹们新年快乐！！！

寻找殒梦

谢谢老大分享！！！谢谢分享！！！谢谢分享！！！

yangjia1980

^p在数据量很小的时候，直接用来替换很方便

但是如果多了

用ultraedit就很快了

gao2ming1

收藏了，非常有用

我测试时对手动分行的空白行好像删不了，不知怎么办

narutoshyb

好东东，收下了，谢谢楼主！！！

chenhuafu

学习你的这个帖子，觉得非常好。但是经常有这种情况，如果一个段落只有空格字符和回车字符，也想把它删除。因为它看起来（仅仅是看起来）是空白的一行。所以在学习你的代码后，经过摸索，逐渐摸索出能把上面的要求也完成。删除只有空格的段落。

Sub delparagrath()
    Dim i As Paragraph, n As Long, j 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
    On Error Resume Next
   
    For Each i In ActiveDocument.Paragraphs
        For j = 1 To i.Range.Characters.Count - 1
           If i.Range.Characters(j) = i.Range.Characters(j + 1) Then
                If i.Range.Characters(j) = Chr(32) Then
                    i.Range.Delete
                End If
            End If
        Next j
    Next i
   
'    MsgBox n
    Application.ScreenUpdating = True
End Sub

chenhuafu

再改一改代码，好像这个才比较好。期望大家指教：

Sub delparagrath()
    Dim i As Paragraph, n As Long, j As Integer, k As Integer, m As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
   
    For Each i In ActiveDocument.Paragraphs
        m = i.Range.Characters.Count - 1
        k = 0
        For j = 1 To m
            If i.Range.Characters(j) = Chr(32) Then
                k = k + 1
            Else
                Exit For
            End If
        Next j
        If k = m Then
            i.Range.Delete
            n = n + 1
        End If
    Next i
   
    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

ilexrichard

学习，再学习