Bitte um Hilfe bei Reporting Services

[Nici]

Hallo zusammen,

ich habe einen Quellcode, welches Excell öffnet und den ausgewählten Report (Grafiken, Texte usw.) hineinschreibt.

Jetzt möchte ich diesen Code umschreiben, so daß es mir die Reports in Word darstellt.

Kann mir da jemand helfen

function exportStatisticTableToExcel()		
{
window.parent.frames("unten").cb.style.display = "block";

var xlMaximized = -4137;
var xlMinimized = -4140;
var xlNormal 	= -4143;

var coll = resultDIV.all.tags("TABLE");
var rows, cells;

if ( (coll != null) && (coll.length != 0) )
	{

	try     {
        	var ExcelApplication = new ActiveXObject("Excel.Application");
		ExcelApplication.WindowState = xlMinimized;
		ExcelApplication.SheetsInNewWorkbook = coll.length;
		var workbook = ExcelApplication.Workbooks.Add();

		for (var i=0; i<coll.length; i++)
			{
			try	{
				rows = coll(i).rows;
				if (rows.length >= 1)
					{

	        			// pro Tabelle ein neues Worksheet
    					try	{
    						workbook.Sheets(i+1).Name = coll(i).id;
    						}
    					catch(e)
    						{}

					workbook.Sheets(i+1).Cells.Font.Name = "Arial";
					workbook.Sheets(i+1).Cells.Font.Size = 8;

					for (var j=0; j<rows.length; j++)
						{
						var cells = rows[j].cells;
						for (k=0; k<cells.length; k++)
							workbook.Sheets(i+1).Cells((j+1),(k+1)).Value = cells[k].innerText;
						}
	    				workbook.Sheets(i+1).Rows("1:1").Font.Bold = true;
    					workbook.Sheets(i+1).Range("A1").AutoFilter();
					workbook.Sheets(i+1).Cells.Columns.AutoFit();
					}
				}
			catch(e)
				{
				alert("Fehler: " + e.description);
				}
			}
		ExcelApplication.WindowState = xlMaximized;
		ExcelApplication.visible = true;
		}

	catch(e)
		{
		alert("MS Excel konnte nicht gestartet werden!\n\nEntweder verhindern Ihre Sicherheitseinstellungen\nim Browser den regulären Programmstart oder\ndas Programm wurde auf Ihrem Rechner\nnicht ordnungsgemäß installiert.");
		var ExcelApplication = null;
		return;
		}
	}

else	{
	alert("Keine Tabelle zum Export vorhanden ...");
	return;
	}

window.parent.frames("unten").cb.style.display = "none";
}

Liebe Grüße,
Nici