Salin kode kode sebagai berikut:
<!
<html xmlns = "http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv = "konten-tipe" content = "text /html; charset = gb2312" /> />
<title> dokumen non -judul </iteme>
<bahasa skrip = "javascript">
Function AutomateWordAutopaging (Prefixion, Count)
{{
var sendiri = ActivexObject baru ("Word.Application");
var odc = owd.documeents.add ();
Odc.showgrammaticalrrs = false; // blok inspeksi tata bahasa
Odc.showspellinger = false; // blokir pemeriksaan ejaan
var oranye = odc.range (0,1);
untuk (i = 0; i <count; i ++)
{{
var sel = document.body.createTextrange ();
var tableName = prefixion+i;
var table = document.geteLementById (Tableename)
Sel.movetoeLementText (tabel);
sel.select ();
sel.execCommand ("copy");
Owd.selection.paste ();
owd.selection.insertban (); // masukkan karakter paging
}
//owd.activeDocument.activeWindow.view.type=3 // Atur mode browsing
owd.visible = true;
};
Function AutomateExcel (Prefiks)
{{
var elim = document.geteLementById ("AutomateExcel");
var orangeref = document.body.createTextrange ();
Orangef.movetoeelementText (eltable);
Orangef.execCommand ("Copy");
mencoba {
Var appexcel = new ActivexObject ("excel.application");
} tangkap (e)
{{
peringatan ("无法调用 Office 对象 , 请确保您的机器已安装了 Office 并已将本系统的站点名加入到 IE 的信任站点列表中!");
Kembali;
}
Appexcel.visible = true;
Appexcel.workbooks.add ().
Appexcel.Workbooks (1) .worksheets.item (1) .columns ("A: A").
//appexcel.workbooks (1) .worksheets.item (1) .columns.com.com
Appexcel = null
};
</script>
</head>
<body>
<input type = "Tombol" value = "Ekspor ke Word Paging Otomatis" OnClick = "AutomateWordAutOpaging ('Table', 5)" />
<input type = "Tombol" value = "Ekspor ke lebar kolom kontrol excel" onClight = "AutomateExcel ('Table')"/>/>
<Div id = "AutomateExcel">
<Table class = tabp id = "Table0" cellspacing = 0 cellpadding = 2 align = border tengah = 1>
<tr>
<Td align = "center"> Judul 0 </td>
</tr>
<tr>
<Td align = "center"> konten 0 </td>
</tr>
</boable>
<br>
<Table class = tabp id = "table1" cellspacing = 0 cellpadding = 2 align = border tengah = 1>
<tr>
<Td align = "center"> Judul 1 </td>
</tr>
<tr>
<Td align = "center"> konten 1 </td>
</tr>
</boable>
<br/>
<Table class = tabp id = "table2" cellspacing = 0 cellpadding = 2 align = border tengah = 1>
<tr>
<Td align = "center"> Judul 2 </td>
</tr>
<tr>
<Td align = "center"> konten 2 </td>
</tr>
</boable>
<br/>
<Table class = tabp id = "table3" cellspacing = 0 cellpadding = 2 align = border tengah = 1>
<tr>
<Td align = "center"> Judul 3 </td>
</tr>
<tr>
<Td align = "center"> konten 3 </td>
</tr>
</boable>
<br/>
<Table class = tabp id = "table4" cellspacing = 0 cellpadding = 2 align = border tengah = 1>
<tr>
<Td align = "center"> Judul 4 </td>
</tr>
<tr>
<Td align = "center"> konten 4 </td>
</tr>
</boable>
<br/>
</div>
</body>
</html>