遍历导出到word代码,JS代码库,德仔网

代码语言

代码分类

【JS】遍历导出到word

作者: / 发布于2014/7/25/ 607


	***************************************************************************************************
	1、遍历导出每个文本框内的内容。
	<script language="javascript">
	function OpenWord(){//导出word
	var txt="txt";
	for(i=0;i<table1.rows.length;i++)//遍历导出图表和文字
	{
	txt="txt"+jilu[i];
	myRange =mydoc.Range(myRange.End-1,myRange.End);//设定起始点
	var sel=Layer1.document.body.createTextRange();
	//sel.moveToElementText(table1);
	sel.moveToElementText(document.all[txt]);
	sel.select();
	Layer1.document.execCommand('Copy');
	sel.moveEnd('character');
	myRange.Paste();
	myRange =mydoc.Range(myRange.End-1,myRange.End);
	myRange.InsertAfter("\n");
	ExcelSheet.ActiveWindow.View.TableGridlines = false;//隐藏虚框
	}
	}
	</script>
	2、拷贝table1内的内容到word
	<script language="javascript">
	function OpenWord(){//导出word
	Layer1.style.border=0;
	ExcelSheet = new ActiveXObject('Word.Application');
	ExcelSheet.Application.Visible = true;
	var mydoc=ExcelSheet.Documents.Add('',0,0);
	myRange =mydoc.Range(0,1);
	myRange =mydoc.Range(myRange.End-1,myRange.End);//设定起始点
	var sel=Layer1.document.body.createTextRange();
	sel.moveToElementText(table1);
	sel.select();
	Layer1.document.execCommand('Copy');
	sel.moveEnd('character');
	myRange.Paste();

	myRange =mydoc.Range(myRange.End-1,myRange.End);
	myRange.InsertAfter("\n");
	ExcelSheet.ActiveWindow.View.TableGridlines = false;
	}
	</script>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　导出到word　

同语言下

可能有用的

贡献的其它代码Label