title: Working with multiple discontinuous selection
body: <p>I'm trying to do something with a multiple selection. I wanna add some text before every selected paragraph but, when I select multiple discontinuous paragraphs, if I do Selection.Paragraphs.Count I always get "1".</p>
  
  <p>How could I work with all paragraphs apart?</p>
  
  <p>Example:</p>
  
  <pre><code>Paragraph1(Selected first)
  Paragraph2
  Paragraph3(Selected second)
  </code></pre>
  
  <p>What I got when I try to add some text at the beginning of these paragraphs:</p>
  
  <pre><code>Paragraph1
  Paragraph2
  TEXTParagraph3
  </code></pre>
  
  <p>What I really want to obtain:</p>
  
  <pre><code>TEXTParagraph1
  Paragraph2
  TEXTParagraph3
  </code></pre>
  
  <p>I'm working like this:</p>
  
  <pre><code>sub x()
    dim p as paragraph
    for each p in selection.paragraphs
      p.range.insertbefore("TEXT")
    next
  End sub
  </code></pre>