Установка номера для пуль

Question

В настоящее время я создаю плагин PowerPoint, который создает XML-файл с информацией о текстовом формате.
Одна из задач - сохранить настройки пули для диапазонов символов, поскольку я разбиваю текст вручную. Я борюсь за сборку пуль:
Как я могу установить номера моих пунктов (в коде)? Когда я пытаюсь сделать

<TextRange>.ParagraphFormat.Bullet.Number = X 

Я получаю сообщение об ошибке «Атрибут ReadOnly».
Также есть лучший способ, чем разделить мой текст вручную? Я делю его, проверяя различия в шрифте. Стиль, стиль, цвет, имя и т. Д. <TextRange>.Paragraphs(i) возвращает много пустых абзацев.
Спасибо!

* Редактирование Примером может быть

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