title: Insert string after find word in vba word
body: <p>I need help, I new in vba word.</p>
  
  <p>I have word document with shapes object.
  I success to get a specific shape that I need to edit with this line:</p>
  
  <pre><code>Dim c As Range
  Set c = ActiveDocument.Shapes(1).TextFrame.TextRange
  </code></pre>
  
  <p>Now In the range I want to find string and add lines after the specific string.</p>
  
  <p>How can I do this?</p>