[ToolsMenuItem1]
Separator=n
TextString=All &Query Results to Excel
QuerySelected=y
ResultSelected=y
PivotSelected=y
ChartSelected=y
DetailSelected=y
EisSelected=y
ScriptString=
JavaScriptString=SectionsThatQualify=0;SectionWithTooManyRows=0;NumberOfRowsAllowed=65000;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqResults)  && (ActiveDocument.Sections[i].Visible == true) && (ActiveDocument.Sections[i].RowCount >0)){SectionsThatQualify++;if (ActiveDocument.Sections[i].RowCount >NumberOfRowsAllowed){SectionWithTooManyRows++}}}var ReturnVal =0;if (SectionWithTooManyRows > 0){ReturnVal = Alert("Sections were found exceed Excel limitation.  Do you wish to continue?","Error Found","Yes","No")}if (ReturnVal < 2){if (SectionsThatQualify > 0){oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = true;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqResults)&&(ActiveDocument.Sections[i].Visible == true)&& (ActiveDocument.Sections[i].RowCount >0)){oXL.Sheets.Add;ActiveDocument.Sections[i].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");;newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;}}}else{(Alert("There are no result sections to export, Press Enter to continue","There are no result sections to export, Press Enter to continue"))}}									
[ExtraInfo]
MenuName=Export to E&xcel
BufferSize=3882
ItemCount=4
Version=2
[ToolsMenuItem2]
Separator=n
TextString=All &Pivots to Excel
QuerySelected=y
ResultSelected=y
PivotSelected=y
ChartSelected=y
DetailSelected=y
EisSelected=y
ScriptString=
JavaScriptString=SectionsThatQualify=0;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqPivot)&& (ActiveDocument.Sections[i].Visible == true)){SectionsThatQualify++}};if (SectionsThatQualify > 0){oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = true;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqPivot)&&(ActiveDocument.Sections[i].Visible == true)){oXL.Sheets.Add;ActiveDocument.Sections[i].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;}}}else{(Alert("There are no pivot sections to export, Press Enter to continue","There are no pivot sections to export, Press Enter to continue"))}
[ToolsMenuItem3]
Separator=n
TextString=All &Charts to Excel
QuerySelected=y
ResultSelected=y
PivotSelected=y
ChartSelected=y
DetailSelected=y
EisSelected=y
ScriptString=
JavaScriptString=SectionsThatQualify=0;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqChart)&& (ActiveDocument.Sections[i].Visible == true)){SectionsThatQualify++}};if (SectionsThatQualify > 0){oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = true;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqChart)&&(ActiveDocument.Sections[i].Visible == true)){oXL.Sheets.Add;ActiveDocument.Sections[i].PivotThisChart();;ActiveDocument.Sections[ActiveDocument.Sections.Count].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");;newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;ActiveDocument.Sections[ActiveDocument.Sections.Count].Remove();}}}else{(Alert("There are no chart sections to export, Press Enter to continue","There are no chart sections to export, Press Enter to continue"))}
[ToolsMenuItem4]
Separator=n
TextString=All &Sections
QuerySelected=y
ResultSelected=y
PivotSelected=y
ChartSelected=y
DetailSelected=y
EisSelected=y
ScriptString=
JavaScriptString=gExcelStarted=0;SectionsThatQualify=0;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqPivot)&& (ActiveDocument.Sections[i].Visible == true)){SectionsThatQualify++}};if (SectionsThatQualify > 0){oXL = new JOOLEObject("Excel.Application");gExcelStarted=1;oXL.WindowState = 3;oXL.Visible = true;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqPivot)&&(ActiveDocument.Sections[i].Visible == true)){oXL.Sheets.Add;ActiveDocument.Sections[i].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;}}}else{(Alert("There are no pivot sections to export, Press Enter to continue","There are no pivot sections to export, Press Enter to continue"))}SectionsThatQualify=0;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqChart)&& (ActiveDocument.Sections[i].Visible == true)){SectionsThatQualify++}};if (SectionsThatQualify > 0){if (gExcelStarted==0) {oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = true;gExcelStarted=1;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;}for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqChart)&&(ActiveDocument.Sections[i].Visible == true)){oXL.Sheets.Add;ActiveDocument.Sections[i].PivotThisChart();;ActiveDocument.Sections[ActiveDocument.Sections.Count].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");;newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;ActiveDocument.Sections[ActiveDocument.Sections.Count].Remove();}}}else{(Alert("There are no chart sections to export, Press Enter to continue","There are no chart sections to export, Press Enter to continue"))}SectionsThatQualify=0;SectionWithTooManyRows=0;NumberOfRowsAllowed=65000;for(i=1;i<=ActiveDocument.Sections.Count;i++){ if ((ActiveDocument.Sections[i].Type == bqResults)  && (ActiveDocument.Sections[i].Visible == true) && (ActiveDocument.Sections[i].RowCount >0)){SectionsThatQualify++;if (ActiveDocument.Sections[i].RowCount >NumberOfRowsAllowed){SectionWithTooManyRows++}}}var ReturnVal =0;if (SectionWithTooManyRows > 0){ReturnVal = Alert("Sections were found exceed Excel limitation.  Do you wish to continue?","Error Found","Yes","No")}if (ReturnVal < 2){if (SectionsThatQualify > 0){if (gExcelStarted==0) {oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = true;gExcelStarted=1;oXL.SheetsInNewWorkbook=1;oXL.Workbooks.Add;}for(i=ActiveDocument.Sections.Count;i>0;i--){if ((ActiveDocument.Sections[i].Type == bqResults)&&(ActiveDocument.Sections[i].Visible == true)&& (ActiveDocument.Sections[i].RowCount >0)){oXL.Sheets.Add;ActiveDocument.Sections[i].Copy();oXL.Activesheet.Paste;newstr=ActiveDocument.Sections[i].Name.replace("\\\\"," ");;newstr=newstr.replace("/"," ");;newstr=newstr.replace("*"," ");;newstr=newstr.replace("?"," ");;newstr=newstr.replace(":"," ");if (newstr.length < 30){oXL.Activesheet.Name=(newstr)}else{oXL.Activesheet.Name=(newstr.substr(0,28)+i)};oXL.Selection.Columns.AutoFit;oXL.Activesheet.Range("A1").Select;}}}else{(Alert("There are no result sections to export, Press Enter to continue","There are no result sections to export, Press Enter to continue"))}}
[ToolsMenuItem5]
Separator=n
TextString=&All Sections to Excel
QuerySelected=y
ResultSelected=y
PivotSelected=y
ChartSelected=y
DetailSelected=y
EisSelected=y
ScriptString=
JavaScriptString= 
;((ActiveDocument.Sections[i].Type == 3)) {cnt2++}} Console.Writeln ('Section count ='+cnt2);if cnt2>0 
;{oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = 
;true;oXL.Workbooks.Add;cnt1=ActiveDocument.Sections.Count;cnt2=0;for(i=1;i<=cnt1;i++) {if 
;((ActiveDocument.Sections[i].Type == 3) && (ActiveDocument.Sections[i].Visible == true)) 
;{oXL.Sheets.Add;ActiveDocument.Sections[i].Copy();oXL.Activesheet.Paste;oXL.Activesheet.Name=(Act
;iveDocument.Sections[i].Name);oXL.Selection.Columns.AutoFit}} 
;((ActiveDocument.Sections[i].Type == 3)) {cnt2++}} Console.Writeln ('Section count ='+cnt2);if cnt2>0 
;{oXL = new JOOLEObject("Excel.Application");oXL.WindowState = 3;oXL.Visible = 
;true;oXL.Workbooks.Add;cnt1=ActiveDocument.Sections.Count;cnt2=0;for(i=1;i<=cnt1;i++) {Console.Writeln ('count ='+cnt2)}}