Sub CopyToWord()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wbk As Workbook
Set wbk = ActiveWorkbook
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open("c:\tmp\doc1.docx")
wbk.Worksheets("Sheet1").Shapes.Range(Array("Chart 1", "Chart 2")).Group.Copy
wordDoc.Content.Paste
wordDoc.Save
wordDoc.Close
wordApp.Quit
End Sub