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

chien888

在“样式”精通之前，搞那些花里胡哨的VB没有什么实际意义。多学点实用的东西更重要。

建议深入学习台湾侯捷的《WORD排版艺术》其它的99%的教材都是蒙人的。学不到精髓！

[此贴子已经被作者于2008-9-18 21:32:31编辑过]

tonybjs

学习中

支持楼主

gxsws

对空段的删除，wps2000最拿手。

紫色蒲公英

WORD中删除空段最简便的方法是用替换法

^p^p  替换为  ^p

可能某处有多个空行,一次只替换一行,所以要按多次全部替换才能删除完.

冰风萧萧

这个作用大，收下了～～～

冰风萧萧

原帖由 chien888 于 2008-9-18 21:31 发表
在“样式”精通之前，搞那些花里胡哨的VB没有什么实际意义。多学点实用的东西更重要。建议深入学习台湾侯捷的《WORD排版艺术》其它的99%的教材都是蒙人的。学不到精髓！
[此贴子已经被作者于2008-9-18 21:32:31编辑 ...

谢谢！
下了一个PDF，不过看不习惯（都这样），还是买本好了￥36-￥38之间。

YZLSZAJ

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
    这个比较好！

liyan1987

我看过楼主编的书，简直是太棒了。

agoaugust

以一直也是用^p来替代空段落，感觉效果一般，今天长见识了。

szqhb

当混合有手工换行符（↓）时不行，可否加进替换此类代码？