title: Paste Excel chart in word, VBA
body: <p>I am using Windows XP SP 3. I have written code to paste several charts from Excel 2003 to Word 2003. </p>
  
  <pre><code>Dim word As Object
  Dim doc As Object
  On Error Resume Next
  
  Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
  If Err = 429 Then
      Set word = CreateObject("word.application") 'creates a Word application
      Err.Clear
  End If
  
  With word
      .Visible = True
      .Documents.Add
  End With
  
  Sheets("Data").Select
  
  For i = 1 To 2
      ActiveSheet.ChartObjects(i).Activate
      ActiveChart.ChartArea.Copy
      With word.Selection
          'Paste Chart
          .Range.PasteSpecial
      End With
  Next i
  </code></pre>
  
  <p>I would like to understand, how can I place the charts from Excel 2003 into created word file in different places? E.x. I would like to place 4 charts in the following order: 1st chart is alligned to the left end of the document (not paragraph), 2nd chart is alligned to the left side of the document, the 3d lies below the 1st, same for the 4th. </p>
  
  <p>Thank you for your answers!</p>
  
  <p>UPD: based on the usefull comments, I have outlined the following solution for my problem. Create template file and insert there a bookmark, named <code>insertHere</code>. The make changes by using Excel VBA in this file. </p>
  
  <p>Here is the code for this</p>
  
  <pre><code>Sub macro()
  Dim word As Object
  On Error Resume Next
  
  Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
  If Err = 429 Then
      Set word = CreateObject("word.application") 'creates a Word application
      Err.Clear
  End If
  
  Set templateFile = word.documents.Add(Template:="C:\Users\PC\Desktop\Doc4.dot")
  Sheets("Data").Select
  
  ActiveSheet.ChartObjects(1).Activate 
  ActiveSheet.ChartObject(1).Select
  ActiveChart.ChartArea.Copy
  With templateFile.Bookmarks
      .Item("insertHere").Range.Paste
  End With
  End Sub
  </code></pre>
  
  <p>However, this code doesn't insert the chart. Can you give me a hint why? </p>