我之前也碰到过一模一样的需求！一开始觉得把带空格缩进的文本转成PPT的有序/无序列表是件小事，但找了一圈发现根本没什么现成的便捷工具——毕竟最终要把这个列表转换成美观的微软Office横向层级组织结构图SmartArt，普通的粘贴格式完全满足不了。

后来翻了论坛里的代码示例，自己折腾出了一个简短的递归VBA程序来搞定这件事！说起来有点尴尬，调试的时候没处理好递归边界，触发了好几次无限循环，直接把我笔记本搞死机了，反复调整才终于跑通😂

下面是我调试好的VBA代码： #

Sub ConvertIndentedTextToHierarchy()
    Dim inputText As String
    Dim lines() As String
    Dim currentShape As Shape
    Dim slide As slide
    Dim currentLevel As Integer
    Dim prevLevel As Integer
    Dim listRange As TextRange
    Dim i As Integer
    
    ' 获取剪贴板中的缩进文本（也可以改成读取指定文本框内容）
    inputText = Clipboard_GetText()
    If inputText = "" Then
        MsgBox "剪贴板中没有文本，请先复制带缩进的内容！", vbExclamation
        Exit Sub
    End If
    
    ' 按换行拆分文本行
    lines = Split(inputText, vbCrLf)
    
    ' 在当前幻灯片插入文本框作为容器
    Set slide = ActiveWindow.View.slide
    Set currentShape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 500, 400)
    Set listRange = currentShape.TextFrame.TextRange
    
    prevLevel = 0
    
    For i = LBound(lines) To UBound(lines)
        Dim lineText As String
        lineText = Trim(lines(i))
        If lineText = "" Then GoTo NextLine ' 跳过空行
        
        ' 计算当前行的缩进层级（假设每个层级用4个空格，可根据需要修改）
        currentLevel = (Len(lines(i)) - Len(lineText)) \ 4
        
        ' 根据层级调整列表缩进
        If currentLevel > prevLevel Then
            ' 进入子层级
            listRange.InsertAfter vbCrLf
            Set listRange = listRange.Characters(listRange.Length + 1, 0)
            listRange.ParagraphFormat.LeftIndent = currentLevel * 18 ' 18磅对应PPT默认缩进
            listRange.Text = lineText
        ElseIf currentLevel = prevLevel Then
            ' 同层级
            listRange.InsertAfter vbCrLf & lineText
            Set listRange = listRange.Characters(listRange.Length - Len(lineText) + 1, Len(lineText))
        Else
            ' 返回父层级
            Dim j As Integer
            For j = prevLevel To currentLevel + 1 Step -1
                listRange.InsertAfter vbCrLf
                Set listRange = listRange.Characters(listRange.Length + 1, 0)
                listRange.ParagraphFormat.LeftIndent = (j - 1) * 18
            Next j
            listRange.Text = lineText
        End If
        
        prevLevel = currentLevel
NextLine:
    Next i
    
    ' 将文本框内容转换为项目符号列表
    currentShape.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = True
    
    MsgBox "转换完成！现在可以选中文本框内容，点击「SmartArt」按钮选择横向层级组织结构图啦~", vbInformation
End Sub

' 辅助函数：读取剪贴板文本
Function Clipboard_GetText() As String
    Dim objData As Object
    Set objData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    On Error Resume Next
    objData.GetFromClipboard
    Clipboard_GetText = objData.GetText
    On Error GoTo 0
End Function

使用步骤： #

1. 把你带空格缩进的文本复制到剪贴板（确保每个层级的缩进是4个空格，如果你的缩进是其他数量，修改代码里的currentLevel = (Len(lines(i)) - Len(lineText)) \ 4中的数字）
2. 打开PPT，按下Alt+F11打开VBA编辑器
3. 右键点击左侧的PPT项目，选择「插入」→「模块」
4. 将上面的代码粘贴到模块窗口中
5. 按下F5运行宏，或者回到PPT界面，点击「开发工具」→「宏」，选择ConvertIndentedTextToHierarchy执行
6. 转换完成后，选中生成的文本框内容，点击菜单栏的「SmartArt」，选择「层次结构」里的「横向层级组织结构图」即可

这个递归逻辑能准确识别缩进的层级关系，生成的列表完美适配SmartArt的层级要求，亲测好用！

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