word中怎么用vba删除字少于10个的段落

一神平凡

Sub DelBlank()
    Dim i as Paragraph
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 1 Then
            i.Range.Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub
这段错误在哪 ？

一神平凡

还是说有什么其他方法呢

cuanju

改成了：   If Len(i.Range) < 10 Then ，用于删除字少于10个的段落，请测试代码。
================
Sub DelBlank2()
    Dim i As Paragraph
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) < 10 Then
            i.Range.Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub

一神平凡

cuanju 发表于 2019-11-5 07:03
改成了：   If Len(i.Range) < 10 Then ，用于删除字少于10个的段落，请测试代码。
================
Sub ...

我一开始就是想这么改的 ，但是错了

一神平凡

cuanju 发表于 2019-11-5 07:03
改成了：   If Len(i.Range) < 10 Then ，用于删除字少于10个的段落，请测试代码。
================
Sub ...

一开始这个是删空格的  ，我也像你这样改的， 然后运行错误

cuanju

一神平凡 发表于 2019-11-5 08:49
一开始这个是删空格的  ，我也像你这样改的， 然后运行错误

请发送示例文档，我看下为何出错。

cuanju

或者加上一句：  On Error Resume Next  ，看下是否就不出错了。
===============
Sub DelBlank3()
    Dim i As Paragraph
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) < 10 Then
            i.Range.Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub

一神平凡

cuanju 发表于 2019-11-5 09:17
或者加上一句：  On Error Resume Next  ，看下是否就不出错了。
===============
Sub DelBlank3()

好了，加一句On Error Resume Nex 就对了，谢谢

daibao88

Len(i.Range) < 10   是包含回车符及标号符号、空格的