title: Move data from MS Word to Excel
body: <p>I have a Microsoft Word document with 400 multiple choice test questions. I need to put all this text into a Microsoft Excel chart and I thought it would be alot easier if I was able to have a macro that allowed me to select all text that began with <code>a.</code> and ends the section at the first paragraph object after <code>a.</code>. </p>
  
  <p>I tried getting help and was told to use the below macro but the macro does not do anything. I just want the macro to select all the text only. If I were to do this in Microsoft Word manually, I would hold down <kbd>ctrl</kbd> and highlight all the text that begins with <code>a.</code> and ends at the first paragraph object. </p>
  
  <pre><code> Sub Aselection()
  '
  ' Aselection Macro
  '
  
  Dim pgh As Paragraph
  For Each pgh In ThisDocument.Paragraphs
  With pgh
  If Left(.Range.Text, 2) = "a." And Left(Right(.Range.Text, 3), 2) = "a." Then
  Debug.Print .Range.Text
  End If
  End With
  Next
  
  End Sub
  </code></pre>