<HTML>
<HEAD>
<title>
</title>
</HEAD>
<body>
<form id="form">
<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" >
<TR style="text-align : center;">
<TD>單元格1</TD>
<TD>單元格2</TD>
<TD>單元格3</TD>
<TD>單元格4</TD>
</TR>
<TR>
<TD colSpan=4 style="text-align : center;"><font color="red" face="Verdana">單元格合併</FONT></TD>
</TR>
</TABLE>
<BR>
<table id = "Test" width="100%">
<tr>
<td><font color="red">test</FONT></td>
</tr>
</table>
</form>
<input type="button" οnclick="javascript:MakeWord();" value="導出頁面到Word">
<SCRIPT LANGUAGE="javascript">
function MakeWord()
{
var word = new ActiveXObject("Word.Application");
// var doc = word .documents.open("c:/test.doc"); //此處爲打開已有的模版
var doc = word .Documents.Add("",0,1);//不打開模版直接加入內容
var Range=doc.Range();
var sel = document.body.createTextRange();
sel.moveToElementText(form);//此處form是頁面form的id
sel.select();
sel.execCommand("Copy");
Range.Paste();
word .Application.Visible = true;
doc .saveAs("c://ba.doc"); //存放到指定的位置注意路徑一定要是“//”不然會報錯
}
</SCRIPT>
</body></html>
<script language="javascript">
function word()
{
word=new ActiveXObject('word.application');
word.Application.Visible=TRUE;
var doc=word.Documents.Add('',0,1);
range=doc.range(0,1);
var sel=Layer1.document.body.createTextRange();
Layer1.document.execCommand('Copy');
sel.moveEnd('character');
range.Paste();
location.reload();
word.ActiveWindow.ActivePane.view.Type=3; //默認爲頁面視圖
}
</script>
<div id=Layer1><input type="button" name="button" value="生成word" onclick="word();"></div>
|
1.保存html頁面到word *************************************************************************************** <HTML> <HEAD> <title> </title> </HEAD> <body> <form id="form"> <table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" > <TR style="text-align : center;"> <TD>單元格1</TD> <TD>單元格2</TD> <TD>單元格3</TD> <TD>單元格4</TD> </TR> <TR> <TD colSpan=4 style="text-align : center;"><font color="red" face="Verdana">單元格合併</FONT></TD> </TR> </TABLE> <BR> <table id = "Test" width="100%"> <tr> <td><font color="red">test</FONT></td> </tr> </table> </form> <input type="button" οnclick="javascript:MakeWord();" value="導出頁面到Word"> <SCRIPT LANGUAGE="javascript"> function MakeWord() { var word = new ActiveXObject("Word.Application"); // var doc = word .documents.open("c:/test.doc"); //此處爲打開已有的模版 var doc = word .Documents.Add("",0,1);//不打開模版直接加入內容 var Range=doc.Range(); var sel = document.body.createTextRange(); sel.moveToElementText(form);//此處form是頁面form的id sel.select(); sel.execCommand("Copy"); Range.Paste(); word .Application.Visible = true; alert("s"); word.Application.Selection.InlineShapes.AddPicture("c://m20.gif"); alert("n"); doc .saveAs("c://ba.doc"); //存放到指定的位置注意路徑一定要是“//”不然會報錯 } </SCRIPT> </body> </html> *************************************************************************************************** 2.用JS生成WORD *************************************************************************************************** <script> function wordcontorl(){ alert("1111") var WordApp=new ActiveXObject("Word.Application");
var wdOrientLandscape = 1 WordApp.Application.Visible=true; var myDoc=WordApp.Documents.Add(); WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape//0應該是縱向頁面,1是橫向頁面
WordApp. Selection.Font.Bold=true WordApp. Selection.Font.Size=20
WordApp. Selection.MoveRight(wdCharacter); //光標右移字符 WordApp.Selection.TypeParagraph() //插入段落 WordApp. Selection.Font.Size=12 WordApp. Selection.TypeText("副標題"); //分行插入日期 WordApp.Selection.TypeParagraph() //插入段落
//myTable.Style="網格型" var aa = "我的列標題"
for (i= 0;i<7;i++) { with (myTable.Cell(1,i+1).Range) { font.Size = 12; InsertAfter(aa); ColumnWidth =4 } } for (i =0;i<7;i++) { for (n =0;n<7 ;n++) {
{font.Size = 12; InsertAfter("bbbb"); } } } row_count = 0; col_count = 0 myDoc.Protect(1) } wordcontorl() </script> *************************************************************************************************** 3.遍歷導出到word *************************************************************************************************** 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> |