title: VBA Word: Copy/Paste selection into new list
body: <p>I am quite new to VBA and have managed to get this far with my code. It currently searches my Word document for a string &quot;The_XXXX&quot; (where X is a # 0-9), is able to copy the string, and then finds the next instance. I would like to be able to paste each instance into a list, after it copies Selection.Copy, or even create an Excel sheet with each instance of the string into a new cell. There will be about 100 instances.</p>
  <pre><code>Sub FindString()
  
  Dim findRange As Word.Range
  Set findRange = ActiveDocument.Range
  
  'CREATE LIST HERE
  
  With findRange.Find
      .ClearFormatting
      .Text = &quot;The_[0-9]{4}&quot;
      .MatchWildcards = True
  
      Do While .Execute(Forward:=True) = True
          findRange.Select
          Selection.Copy
          
          'ADD TO LIST/EXCEL HERE
          
          findRange.Collapse wdCollapseEnd
      Loop
  End With
  
  End Sub
  </code></pre>