项目符号的编号设置

Question

我目前正在构建一个 PowerPoint 插件，它创建一个带有文本格式信息的 .xml 文件。
其中一项任务是保存字符范围的项目符号设置，因为我正在手动拆分文本。我正在为重新组装子弹而苦苦挣扎：
如何设置项目符号的数量（每个代码）？当我尝试做时

<TextRange>.ParagraphFormat.Bullet.Number = X

我收到错误“只读属性”。
还有比手动拆分文本更好的方法吗？我通过检查字体大小、样式、颜色、名称等方面的差异来划分它。<TextRange>.Paragraphs(i) 返回很多空段落..
谢谢！

*编辑 一个例子是

1. 就是这样
   1. 一个
   2. 测试
      

我将有 3 个 TextRanges（即，A，测试）并希望创建与上述相同的项目符号。

Answer 1

类似这样，以当前选中的形状为例：

Dim oSh As Shape
Dim x As Long

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange
    For x = 1 To .Paragraphs.Count
        ' is it an empty paragraph?
        If Len(.Paragraphs(x).Text) > 0 Then
            .Paragraphs(x).ParagraphFormat.Bullet.Style = ppBulletArabicPeriod
        End If
    Next
End With