如何用PowerPoint VBA宏设置第二个项目符号的格式与缩进？

要给新建文本框的两个段落分别设置不同项目符号（第一段用字符8226圆点，第二段用短横线“-”），原代码因统一设置整个文本范围的段落格式，无法实现差异化配置。以下是修正后的实现方案：

完整代码 #

For Each oSld In ActiveWindow.Selection.SlideRange
    Set shp = oSld.Shapes.AddShape(Type:=msoTextOrientationHorizontal, _
        Left:=482, Top:=195, Width:=500, Height:=100) ' 调高高度容纳两行文本
    shp.Fill.Visible = msoFalse ' 修正原代码拼写错误：msoFalsee → msoFalse
    
    ' 给文本框添加两个段落的内容
    shp.TextFrame.TextRange.Text = "第一段项目符号内容" & vbCrLf & "第二段项目符号内容"
    
    ' 设置第一个段落的项目符号（字符8226圆点）
    With shp.TextFrame.TextRange.Paragraphs(1).ParagraphFormat.Bullet
        .Visible = msoTrue
        .RelativeSize = 1.15
        .Font.Color = RGB(0, 0, 0)
        .Character = 8226
    End With
    
    ' 设置第二个段落的项目符号（短横线“-”）
    With shp.TextFrame.TextRange.Paragraphs(2).ParagraphFormat.Bullet
        .Visible = msoTrue
        .RelativeSize = 1.15
        .Font.Color = RGB(0, 0, 0)
        .Character = Asc("-") ' 短横线ASCII码为45，也可直接写45
    End With
Next oSld

关键说明 #

• 修正原代码中msoFalsee的拼写错误，改为正确的msoFalse
• 通过vbCrLf添加换行，生成两个独立段落
• 利用TextRange.Paragraphs(索引)定位单个段落，单独配置项目符号属性
• 短横线的字符编码可通过Asc("-")获取（值为45），直接赋值给.Character即可

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