Sub CreateWord()
NewBook = ActiveWorkbook.Name 'Obtains the name of the spreadsheet
'This code requires a referece to the Word object model
Dim Appword As New Word.Application
Dim wdDoc As Word.Document ' What is this for?
'---- when you edit a word doc
'---- the above is that document
'---- I don't think you need this as you have created a word app
'---- (new) already above
Set Appword = CreateObject("Word.Application")
'There is a new workbook created called object?
'---- adds a new doc
Appword.Documents.Add
Windows(NewBook).Activate 'Makes sure I stay in the right place for copying from Excel
Sheets("CHART").Select
For i = 1 To 6
Windows(NewBook).Activate 'Makes sure I stay in the right place for copying from Excel
Sheets("CHART").Select
CName = "Chart " & i 'Selects the chart to be copied
Sheets("Chart").ChartObjects(CName).Activate
Sheets("Chart").ChartObjects(CName).Copy
MsgBox ("We are on Chart: " & CName)
'This only says Microsoft Word
'---- because you haven't saved the word doc
MsgBox (Appword.Name)
Appword.Selection.PasteAndFormat wdChartPicture
'Errors and states "command is not available"
Next i
Appword.Visible = True
'Save New File as : Need to Change File Location information. This is where the newly created file is saved to.
'
ChangeFileOpenDirectory _
Drive & Path
Appword.ActiveDocument.SaveAs FileName:=FileName & ext, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
Appword.Documents.Save
Appword.Documents.Close
'~~~~~~~~~~~~~~~~~~~~~~~~
Windows(NewBook).Activate
Sheets("CHART").Select
Set Appword = Nothing
End Sub