Export Chart/Object to MS/Microsoft Word

[#1]

HI All

Could somebody explain why this isnt working?

sub WordExport

set objWord = CreateObject(“Word.Application”)
objWord.visible = false

set objDoc=objWord.Documents.add
Const wdOrientLandscape = 1

objDoc.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.GetSheetObject(“CH18″).CopyTableToClipboard true
objWord.Selection.Paste
objDoc.SaveAs “Y:\James Makepeace\EmpSalaryReport”

end sub

Thanks

James