Hi,
I have a straight table which have checked suppress header row. I am exporting the table to word document. After exporting to the dimension labels are coming in the word document which i don't want.
Code:
Sub export_word
set objWord = CreateObject("Word.Application")
objWord.visible = false
set objDoc=objWord.Documents.add
Const wdOrientLandscape = 0
objDoc.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.GetSheetObject("CH02").CopyTableToClipboard true
objWord.Selection.Paste
objSelection.TypeText chr(11)
ActiveDocument.GetSheetObject("CH04").CopyTableToClipboard true
objWord.Selection.Paste
objSelection.TypeText chr(11)
ActiveDocument.GetSheetObject("CH01").CopyTableToClipboard true
objWord.Selection.Paste
'objDoc.SaveAs "C:\Report"
objWord.quit
end sub
Regards,
Sivaraj
