如何用vba将word文档的自动编号列表项转换为手动编号文本？

word文档的列表项可以在输入内容的时候自动变化，有项目符合列表和编号列表两种。

word 文档的列表项并不属于域。

有时候我们希望将自动编号转化为文本状态，不再自动编号，这时候可以使用List对象或者Document对象的ConvertNumbersToText方法。

代码如下：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.ConvertNumbersToText
    Dim oList As List
    Debug.Print oDoc.Lists.Count
    For Each oList In oDoc.Lists
        oList.ConvertNumbersToText
    Next
End Sub