Я пытаюсь сделать что-то с множественным выбором. Я хочу добавить текст перед каждым выделенным абзацем, но, когда я выбираю несколько абзацев с перерывами, если я делаю Selection.Paragraphs.Count, я всегда получаю «1».

Как я могу работать со всеми параграфами отдельно?

Пример:

Paragraph1(Selected first)
Paragraph2
Paragraph3(Selected second)

Что я получаю, когда пытаюсь добавить текст в начале этих абзацев:

Paragraph1
Paragraph2
TEXTParagraph3

Что я действительно хочу получить:

TEXTParagraph1
Paragraph2
TEXTParagraph3

Я работаю так:

sub x()
  dim p as paragraph
  for each p in selection.paragraphs
    p.range.insertbefore("TEXT")
  next
End sub