نسخ رمز رمز على النحو التالي:
<!
<html xmlns = "http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv = "content-type" content = "text /html ؛ charset = gb2312" /> />
<title> وثيقة غير متوفرة </title>
<script language = "javaScript">
الدالة AutomateWordautopaging (بادئة ، العد)
{{
var own = new ActivexObject ("word.application") ؛
var odc = owd.documeents.add () ؛
ODC.Showgramicatyrs = خطأ
ODC.Showspellinger = خطأ ؛
var Orange = ODC.Range (0،1) ؛
لـ (i = 0 ؛ i <count ؛ i ++)
{{
var sel = document.body.createTexTrange () ؛
var tableName = prefixion+i ؛
var table = document.getElementById (tableName)
sel.MovetoElementText (الجدول) ؛
sel.select () ؛
sel.ExecCommand ("نسخ") ؛
owd.selection.paste () ؛
owd.selection.insertban () ؛
}
//owd.activedocument.activewindow.view.type=3 // اضبط وضع التصفح
owd.visible = صحيح ؛
} ؛
الدالة AutomateExcel (بادئة)
{{
var lev = document.getElementById ("AutomateExcel") ؛
var orangeref = document.body.createTexTrange () ؛
Orangef.MovetoelementText (eltable) ؛
Orangef.ExecCommand ("نسخ") ؛
يحاول {
var appexcel = new ActivexObject ("excel.application") ؛
} catch (e)
{{
ALERT ("无法调用 Office 对象 , 请确保您的机器已安装了 Office 并已将本系统的站点名加入到 ie 的信任站点列表中!") ؛
يعود؛
}
appexcel.visible = true ؛
appexcel.works.add ().
appexcel.workbooks (1) .Worksheets.item (1) .Columns ("A: A").
//appexcel.workbooks (1) .Worksheets.item (1) .Columns.com.com
appexcel = فارغة
} ؛
</script>
</head>
<body>
<type type = "button" value = "التصدير إلى Word Automatic Paging" OnClick = "AutomateWordAutopaging ('table' ، 5)" />
<type type = "button" value = "التصدير إلى عرض عمود التحكم في Excel" onClight = "AutomateExcel ('table')"/>/>
<div id = "AutomateExcel">
<table class = tabp id = "table0" cellspacing = 0 cellpadding = 2 align = center border = 1>
<tr>
<td align = "center"> العنوان 0 </td>
</r>
<tr>
<td align = "center"> المحتوى 0 </td>
</r>
</table>
<br>
<table class = tabp id = "table1" cellspacing = 0 cellpadding = 2 align = center border = 1>
<tr>
<td align = "center"> العنوان 1 </td>
</r>
<tr>
<td align = "center"> المحتوى 1 </td>
</r>
</table>
<br/>
<table class = tabp id = "table2" cellspacing = 0 cellpadding = 2 align = Center Border = 1>
<tr>
<td align = "center"> العنوان 2 </td>
</r>
<tr>
<td align = "center"> المحتوى 2 </td>
</r>
</table>
<br/>
<table class = tabp id = "table3" cellspacing = 0 cellpadding = 2 align = Center Border = 1>
<tr>
<td align = "center"> العنوان 3 </td>
</r>
<tr>
<td align = "center"> المحتوى 3 </td>
</r>
</table>
<br/>
<table class = tabp id = "table4" cellspacing = 0 cellpadding = 2 align = center border = 1>
<tr>
<td align = "center"> العنوان 4 </td>
</r>
<tr>
<td align = "center"> المحتوى 4 </td>
</r>
</table>
<br/>
</div>
</body>
</html>