如何将Excel/Word层级列数据转换为Microsoft Word层级列表？

原始数据 #

Parent  Sub A   AAB
Parent  Sub A   AAU
Parent  Sub B   AAP
Parent  Sub B   AA1
Parent  Sub B   AAK

目标是将上述数据转换成三级层级列表：Parent为一级项目，Sub A/Sub B为二级项目，AAB/AAU等为三级项目。以下是几种可行的解决方法：

方法一：Word手动设置多级列表（适合少量数据） #

• 1. 把所有文本复制到Word，按Ctrl+H打开替换窗口：查找内容填 {2,}，替换为^t，勾选「使用通配符」后点击「全部替换」，将连续空格转为制表符。
• 2. 选中所有文本，点击「开始」选项卡→「多级列表」→「定义新的多级列表」。
• 3. 分别配置三级列表：
  • 级别1：设置编号样式（可选择无编号，直接显示文本），缩进保持默认。
  • 级别2：缩进设为1个制表位，链接到级别1，文本缩进位置调整为1厘米左右。
  • 级别3：缩进设为2个制表位，链接到级别2，文本缩进位置调整为2厘米左右。
• 4. 选中对应行的文本，用「提高/降低列表级别」按钮调整层级，或直接按制表位切换。

方法二：VBA宏自动处理（适合大量数据） #

打开Word，按Alt+F11进入VBA编辑器，插入新模块，粘贴以下代码：

Sub ConvertToMultiLevelList()
    Dim doc As Document
    Dim para As Paragraph
    Dim prevParent As String, prevSub As String
    
    Set doc = ActiveDocument
    prevParent = ""
    prevSub = ""
    
    ' 将连续空格替换为制表符
    doc.Content.Find.Execute FindText:=" {2,}", ReplaceWith:=vbTab, _
        MatchWildcards:=True, Replace:=wdReplaceAll
    
    For Each para In doc.Content.Paragraphs
        Dim parts() As String
        parts = Split(para.Range.Text, vbTab)
        
        If UBound(parts) >= 2 Then
            ' 处理一级项目
            If parts(0) <> prevParent Then
                para.Range.ListFormat.ApplyListTemplateWithLevel _
                    ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
                    ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
                    DefaultListBehavior:=wdWord10ListBehavior
                para.Range.ListFormat.ListLevelNumber = 1
                prevParent = parts(0)
                prevSub = ""
            End If
            
            ' 处理二级项目
            If parts(1) <> prevSub Then
                para.Range.ListFormat.ListLevelNumber = 2
                prevSub = parts(1)
            End If
            
            ' 处理三级项目
            If parts(1) = prevSub Then
                para.Range.ListFormat.ListLevelNumber = 3
            End If
        End If
    Next para
End Sub

• 使用步骤：将原始文本复制到空白Word文档，运行该宏即可自动生成三级层级列表。若默认编号样式不符合需求，可修改代码中ListTemplates(1)的序号，或后续手动调整格式。

方法三：PowerShell预处理文本后导入Word（适合命令行用户） #

1. 将原始数据保存为input.txt文件。
2. 运行以下PowerShell命令，生成带制表位标记层级的文本：

$prevParent = ""
$prevSub = ""
Get-Content input.txt | ForEach-Object {
    $cols = $_ -split '\s{2,}', 3
    if ($cols[0] -ne $prevParent) {
        $prevParent = $cols[0]
        $prevSub = ""
        "`t`t$($cols[0])"
    }
    if ($cols[1] -ne $prevSub) {
        $prevSub = $cols[1]
        "`t$($cols[1])"
    }
    "$($cols[2])"
} | Out-File output.txt -Encoding utf8

3. 将output.txt的内容复制到Word，选中所有文本，点击「多级列表」选择合适模板，Word会自动识别制表位对应的层级。

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