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