Estou tentando fazer algo com uma seleção múltipla. Quero adicionar um texto antes de cada parágrafo selecionado, mas, quando seleciono vários parágrafos descontínuos, se fizer Selection.Paragraphs.Count, sempre recebo "1".

Como eu poderia trabalhar com todos os parágrafos separados?

Exemplo:

Paragraph1(Selected first)
Paragraph2
Paragraph3(Selected second)

O que recebi quando tento adicionar algum texto no início desses parágrafos:

Paragraph1
Paragraph2
TEXTParagraph3

O que eu realmente quero obter:

TEXTParagraph1
Paragraph2
TEXTParagraph3

Eu estou trabalhando assim:

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