Pasting charts to Word is quite straightforward:
Sub Demo()
'Note: A reference to the Word library must be set, via Tools|References
Dim wdApp As New Word.Application, wdDoc As Word.Document, xlShp As Excel.Shape
Const StrDocNm As String = "Full document name & path"
If Dir(StrDocNm) = "" Then Exit Sub
Set wdDoc = wdApp.Documents.Add(StrDocNm)
wdApp.Visible = True
With wdDoc
  For Each xlShp In ActiveWorkbook.ActiveSheet.Shapes
    If .Bookmarks.Exists(xlShp.Name) Then
      xlShp.Copy
      .Bookmarks(xlShp.Name).Range.Paste
    End If
  Next
End With
Set wdDoc = Nothing: Set wdApp = Nothing
End Sub
The above code is self-contained. It assumes the charts are named and that their names correspond with bookmark names in the document.

PS: My own coding style is quite different from that used for the code you posted and I don't have the time to study your code to integrate mine with it - or to re-write yours.