title: Copy Text from Range in Excel into Word Document
body: <p>how do you: <br></p>
  
  <p>1)  copy text from a range in an Excel Document.<br>
  2)  Open a Word Document. <br>
  3) inserts the text into a specific part of the word document.<br></p>
  
  <p>regards</p>
  
  <p>Kojo</p>
  
  <p>Edit: here is the approach</p>
  
  <pre><code>Dim wrdApp As Word.Application 
  Dim wrdDoc As Word.Document 
  Dim j As Integer 
  Set wrdApp = CreateObject("Word.Application") 
  wrdApp.Visible = True 
  Set wrdDoc = wrdApp.Documents.Open("C:\Files\DailyStrategy.doc") 
  
  With wrdDoc 
     If wrdDoc.Bookmarks.Exists("MarketCommentry") 
        Then wrdDoc.Bookmarks("MarketCommentry").Range.Text = shortString 
        wrdDoc.SaveAs "c:\temp\test.doc" 
     End If 
     ' close the document 
     Set wrdDoc = Nothing 
     Set wrdApp = Nothing 
  End With
  </code></pre>