求Word 2019宏代码：将列表项目符号转换为纯文本

• 功能说明：自动遍历文档所有列表，按层级替换项目符号——层级1保留•，层级2替换为A1，层级3替换为B1，以此类推，自动识别列表边界并处理后续列表。

• 使用步骤：

  1. 打开目标Word文档，按下Alt+F11打开VBA编辑器
  2. 右键左侧工程列表，选择「插入」→「模块」
  3. 将以下代码复制粘贴到模块窗口中
  4. 按下F5运行宏，或返回Word界面通过「开发工具」→「宏」选择ConvertListSymbols执行

Sub ConvertListSymbols()
    Dim li As ListItem
    Dim levelNum As Integer
    Dim symbolMap As Variant
    ' 定义层级与符号的对应关系，可按需扩展更多层级
    symbolMap = Array("•", "A1", "B1", "C1", "D1", "E1", "F1", "G1")
    
    ' 遍历文档内所有列表项
    For Each li In ActiveDocument.ListItems
        levelNum = li.Range.ListFormat.ListLevelNumber
        ' 避免层级超出预设范围报错
        If levelNum <= UBound(symbolMap) + 1 Then
            ' 移除原有项目符号
            li.Range.ListFormat.RemoveNumbers
            ' 在列表项开头插入对应标识，保留原缩进格式
            li.Range.InsertBefore symbolMap(levelNum - 1)
        End If
    Next li
End Sub

• 扩展说明：如果需要支持更多层级，直接在symbolMap数组中添加对应的标识即可，比如添加"F1"支持第7层级。

内容的提问来源于stack exchange，提问作者JanVegas