用vba如何将所有自动编号（列表）中的制表符去掉？

xiaoyouxi01

有一测试文档（见附件）， 文档中存在很多自动编号。

我知道用ActiveDocument.ConvertNumbersToText可以将自动编号转为普通文本，但是编号和文本之间会多出来一个制表符。而我又不希望在“编号转文本”之后再去替换这些制表符（全部替换可能误伤其他制表符）。

因此我希望在“编号转文本”之前，先将文档中所有自动编号（列表）中的制表符去掉。

手动操作我知道，就是右键点编号→调整列表缩进→编号之后选“不特别标注”即可。







我自己试了半天，找到一个语句是这样的，当只有一组自动编号列表时，可以去除制表符。
ActiveDocument.Range.ListFormat.ListTemplate.ListLevels(1).TrailingCharacter = wdTrailingNone

但是对于测试文档，一运行就报错，似乎列表有嵌套就不行了？



特来咨询下高手，怎么样可以遍历所有自动编号，并全部去除制表符？

test.rar (14.48 KB, 下载次数: 9)

2018-8-24 15:18 上传

点击文件名下载附件

ming0018

1. Sub 宏3()
   
2.    
   
3.     Dim doc As Document
   
4.     Set doc = ActiveDocument
   
5.     Dim LT As ListTemplate, LL As ListLevel
   
6.    
   
7.     For Each LT In doc.ListTemplates
   
8.         For Each LL In LT.ListLevels
   
9.             With LL
   
10.                 .TrailingCharacter = wdTrailingNone
    
11.                 .NumberPosition = CentimetersToPoints(0)
    
12.                 '上面ListLevels的其中两个属性，还有很多不一一列举
    
13.                 '自己录制宏或者F1里都可以找到
    
14.             End With
    
15.         Next
    
16.     Next
    
17.    
    
18. End Sub

复制代码

xiaoyouxi01

ming0018 发表于 2018-8-24 16:20

完美解决，非常感谢！！