項目符號的數字設置

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