sub exportToExcel_R82
Dim aryExport(4,3)
aryExport(0,0) = "CH545"
aryExport(0,1) = "HC Report"
aryExport(0,2) = "B2"
aryExport(0,3) = "data"
aryExport(1,0) = "CH546"
aryExport(1,1) = "HC Report"
aryExport(1,2) = "B50"
aryExport(1,3) = "data"
aryExport(2,0) = "CH547"
aryExport(2,1) = "HC Report"
aryExport(2,2) = "L2"
aryExport(2,3) = "data"
aryExport(3,0) = "CH548"
aryExport(3,1) = "HC Report"
aryExport(3,2) = "L40"
aryExport(3,3) = "data"
aryExport(4,0) = "CH544"
aryExport(4,1) = "Raw data"
aryExport(4,2) = "B2"
aryExport(4,3) = "data"
msgbox("Generating Excel ...")
ActiveDocument.Variables("V_Export").SetContent "0", 1
Dim objExcelWorkbook 'as Excel.Workbook
Set objExcelWorkbook = copyObjectsToExcelSheet(ActiveDocument, aryExport)
end sub