wordVBA编号列表操作问题

piaoyuya

先看代码



Sub abc()
Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        If para.Range.ListFormat.ListType <> wdListNoNumbering Then '检查段落是否属于一个编号列表
            If Len(para.Range.Text) <= Len(Chr(13)) + Len(para.Range.ListFormat.ListString) Then '检查段落的文本是否只包括列表标记和一个段落标记
                para.Range.Select '选择该段落
                Selection.MoveEnd wdCharacter, 1 '将选定区域的末尾扩展到下一个字符               
                Selection.Delete '删除选定区域中的所有内容，包括段落结尾处的分隔符号
            End If
        End If
    Next para
End Sub


以上代码我想实现自动删除没有内容的编号，但是运行完，没有效果，请教各位大神
具体模板见附件

batmanbbs

ListString 并不在 Text 中，只要判断段落为空直接删除即可

if len(para.range.text) = 1 then para.range.delete

batmanbbs

    If Len(para.Range.Text) = 1 Then para.Range.Delete  需要注意删除段落，一般倒序

守候_CJ

Word VBA：删除有自动编号的空段
不用这么麻烦
代码：

1. Sub abc()
   
2.     Dim para As Paragraph
   
3.     For Each para In ActiveDocument.Paragraphs
   
4.         If para.Range.ListFormat.ListType <> wdListNoNumbering Then '检查段落是否属于一个编号列表
   
5.             'para.Range.Select
   
6.             If Trim(para.Range.Text) = Chr(13) Then '检查段落的文本是否只包括列表标记和一个段落标记
   
7.                 para.Range.Delete
   
8.             End If
   
9.         End If
   
10.     Next para
    
11. End Sub

复制代码