如何用PowerPoint VBA插入符合指定多级项目符号的预设文本框？

问题1：能否通过VBA插入遵循幻灯片母版格式的占位符？ #

可以实现，但不是直接插入选择窗格中已有的TextPlaceholder，而是通过调用幻灯片版式（Layout）中的占位符定义来添加。具体步骤：

1. 在幻灯片母版中创建包含目标多级项目符号格式的文本占位符，并保存其所在版式（例如命名为「自定义文本版式」）；
2. 通过VBA指定目标幻灯片应用该版式，或直接在幻灯片中添加对应类型的占位符，自动继承母版预设格式。

代码示例：插入母版定义的文本占位符 #

Sub InsertMasterTextPlaceholder()
    Dim targetSlide As Slide
    Dim placeholderShape As Shape
    
    ' 指定要插入占位符的幻灯片（此处为第1张，可按需修改）
    Set targetSlide = ActivePresentation.Slides(1)
    
    ' 添加母版中定义的正文占位符，自动继承格式
    ' 可调整Left/Top/Width/Height参数设置位置与大小
    Set placeholderShape = targetSlide.Shapes.AddPlaceholder( _
        Type:=ppPlaceholderBody, _
        Left:=100, Top:=100, Width:=500, Height:=300)
    
    ' 测试：插入多级文本并设置缩进级别，验证格式继承
    placeholderShape.TextFrame.TextRange.Text = "第一级文本" & vbCrLf & _
        "第二级文本" & vbCrLf & "第三级文本" & vbCrLf & "第四级文本"
    placeholderShape.TextFrame.TextRange.Paragraphs(2).IndentLevel = 2
    placeholderShape.TextFrame.TextRange.Paragraphs(3).IndentLevel = 3
    placeholderShape.TextFrame.TextRange.Paragraphs(4).IndentLevel = 4
End Sub

提示：若母版占位符已配置好各级项目符号，插入后的占位符会自动应用这些格式，无需额外设置。

问题2：若无法使用母版占位符，如何实现指定多级项目符号的文本框？ #

可直接插入普通文本框，通过VBA逐一定义每一级段落的项目符号、缩进、字体等格式。以下是完全匹配需求的代码示例：

代码示例：自定义多级项目符号文本框 #

Sub InsertCustomMultiLevelTextBox()
    Dim targetSlide As Slide
    Dim textBoxShape As Shape
    Dim textRange As TextRange
    
    ' 指定目标幻灯片
    Set targetSlide = ActivePresentation.Slides(1)
    
    ' 插入普通文本框
    Set textBoxShape = targetSlide.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=500, Height:=300)
    Set textRange = textBoxShape.TextFrame.TextRange
    
    ' 添加示例多级文本
    textRange.Text = "第一级（无项目符号）" & vbCrLf & _
        "第二级（圆形项目符号）" & vbCrLf & _
        "第三级（短横线项目符号）" & vbCrLf & _
        "第四级（方形项目符号）"
    
    ' 逐段设置格式
    With textRange
        ' 第一级：无项目符号，无额外缩进
        .Paragraphs(1).IndentLevel = 1
        .Paragraphs(1).ParagraphFormat.Bullet.Visible = msoFalse
        
        ' 第二级：圆形项目符号，缩进30pt
        .Paragraphs(2).IndentLevel = 2
        With .Paragraphs(2).ParagraphFormat.Bullet
            .Visible = msoTrue
            .Character = 149 ' 圆形符号ASCII码
            .Font.Name = "Arial"
            .Font.Size = 10
            .RelativeSize = 1 ' 与文本同大小
        End With
        .Paragraphs(2).ParagraphFormat.LeftIndent = 30
        
        ' 第三级：短横线项目符号，缩进60pt
        .Paragraphs(3).IndentLevel = 3
        With .Paragraphs(3).ParagraphFormat.Bullet
            .Visible = msoTrue
            .Character = 45 ' 短横线ASCII码
            .Font.Name = "Arial"
            .Font.Size = 10
            .RelativeSize = 1
        End With
        .Paragraphs(3).ParagraphFormat.LeftIndent = 60
        
        ' 第四级：方形项目符号，缩进90pt
        .Paragraphs(4).IndentLevel = 4
        With .Paragraphs(4).ParagraphFormat.Bullet
            .Visible = msoTrue
            .Character = 153 ' 方形符号ASCII码
            .Font.Name = "Arial"
            .Font.Size = 10
            .RelativeSize = 1
        End With
        .Paragraphs(4).ParagraphFormat.LeftIndent = 90
    End With
End Sub

代码说明： #

• 使用Shapes.AddTextbox创建普通文本框；
• 通过ParagraphFormat.Bullet控制每一级项目符号的可见性、字符类型、字体属性；
• 用LeftIndent调整缩进距离，IndentLevel定义段落层级；
• 符号ASCII码可按需替换：圆形（149）、短横线（45）、方形（153），特殊符号可改用对应Unicode码。

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