项目符号的数字设置

Question

我目前正在构建一个PowerPoint插件，该插件用文本格式信息创建一个.xml文件。
它的一个任务是保存字符范围的项目符号设置，因为我手动分割文本。我正在努力重新组装子弹：
如何设置我的项目符号点数（每个代码）？当我试图做

<TextRange>.ParagraphFormat.Bullet.Number = X 

我得到错误“ReadOnly属性”。
还有比手动分割我的文字更好的方法吗？我通过检查Font.size，样式，颜色，名称等的差异来划分它。<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