91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

1、首先將網(wǎng)站的地址加入受信任的站點(diǎn)
2、在"工具－internet選項(xiàng)－安全－受信任的站點(diǎn)"中點(diǎn)“自定義級(jí)別”，在“對(duì)沒有標(biāo)注安全的Acitvex控件進(jìn)行初始化和腳本運(yùn)行”中點(diǎn)選“禁止”或“啟用”，就ok了。

如何取office版本號(hào)、安裝路徑和使用者

alert("您的" + wrd.Application.Caption + "安裝路徑為： " + wrd.Application.Path + " 版本號(hào)是：" + wrd.Application.version

+ " 注冊(cè)使//用者是：" + wrd.Application.UserName)

--------------------------------------------------------------------------------

javascript將網(wǎng)頁表格導(dǎo)出Word

<script>
function AllAreaWord()
{
if(document.all("tab").rows.length==0)
{
   alert("沒有內(nèi)容可導(dǎo)！");
   return;
}
try{
   var oWD = new ActiveXObject("Word.Application");
}catch(e)
{
   alert("無法調(diào)用Office對(duì)象，請(qǐng)確保您的機(jī)器已安裝了Office并已將本系統(tǒng)的站點(diǎn)名加入到IE的信任站點(diǎn)列表中！");
   return;
}
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(tab); //tab 為導(dǎo)出數(shù)據(jù)所在的表格ID
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
}
</script>

<table id="tab" align="center" width="300" border="1" bordercolor="#2baeff" cellpadding="0" cellspacing="0" bgcolor="lightblue">
<Tr>
    <Td>1</td>
    <Td>2</td>
    <Td>3</td>
</tr>
<Tr>
    <Td>4</td>
    <Td>5</td>
    <Td>6</td>
</tr>
<Tr>
    <Td>7</td>
    <Td>8</td>
    <Td>9</td>
</tr>
</table>
<input type=button name='button_export' title="導(dǎo)出到word" onclick=AllAreaWord() value=下載到word>

--------------------------------------------------------------------------------

javascript將網(wǎng)頁表格導(dǎo)出Excel

<SCRIPT LANGUAGE="javascript">

<!--

function AutomateExcel()

{

var elTable = document.getElementById("outtable"); //outtable 為導(dǎo)出數(shù)據(jù)所在的表格ID；

var oRangeRef = document.body.createTextRange();

oRangeRef.moveToElementText( elTable );

oRangeRef.execCommand( "Copy" );

try{
var appExcel = new ActiveXObject( "Excel.Application" );
}catch(e)
{
alert("無法調(diào)用Office對(duì)象，請(qǐng)確保您的機(jī)器已安裝了Office并已將本系統(tǒng)的站點(diǎn)名加入到IE的信任站點(diǎn)列表中！");
return;
}

appExcel.Visible = true;

appExcel.Workbooks.Add().Worksheets.Item(1).Paste();

appExcel = null;

}

//-->

</SCRIPT>

<input type="button" name="out_excel" onClick="AutomateExcel();" value="導(dǎo)出到excel" class="notPrint">
<table border="1" cellpadding="0" cellspacing="0" id=outtable>
<tr height="28">
    <td width="27" height="86" rowspan="4" bgcolor="#ffffcc">序號(hào)</td>
    <td width="111" rowspan="4" bgcolor="#ffffcc"><div align="center">服務(wù)網(wǎng)點(diǎn)</div></td>
    <td width="402" colspan="7" bgcolor="#ffffcc"><div align="center">用戶滿意度</div></td>
</tr>
<tr height="19">
    <td width="100" height="39" colspan="3" rowspan="2" bgcolor="#ffffcc"><div align="center">樣本數(shù)量</div></td>
    <td width="218" colspan="3" rowspan="2" bgcolor="#ffffcc">對(duì)該服務(wù)網(wǎng)點(diǎn)實(shí)施本次活動(dòng)的整體評(píng)價(jià)，滿分10分（平均分?jǐn)?shù)）</td>
    <td width="84" rowspan="3" bgcolor="#ffffcc"><div align="center">季度平均分</div></td>
</tr>
<tr height="20"> </tr>
<tr height="19">
    <td width="29" height="19" bgcolor="#ffffcc"><div align="center">4月</div></td>
    <td width="29" bgcolor="#ffffcc"><div align="center">5月</div></td>
    <td width="42" bgcolor="#ffffcc"><div align="center">合計(jì)</div></td>
    <td width="68" bgcolor="#ffffcc"><div align="center">4月</div></td>
    <td width="68" bgcolor="#ffffcc"><div align="center">5月</div></td>
    <td width="82" bgcolor="#ffffcc"><div align="center">合計(jì)</div></td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
    <td bgcolor="#ffffcc">&nbsp;</td>
</tr>
</table>