Dimension labels coming after checking suppress header when export to word

[sivarajs]

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