title: Acting on multiple Selection.Range objects in Microsoft Word
body: <p>I'm trying to surround all the selected text on a page with quotation marks, but when I run the code it only affects the last selection on the page. My code also unbolds all the selected text, and that part is working fine. My code is as follows:</p>
  
  <pre><code>With Selection.Range
      Selection.Range.Bold = wdToggle
      .Text = Chr(34) &amp; .Text &amp; Chr(34)
  End With
  </code></pre>