new ActiveXObject("Word.Application") 这玩意玩不转了,老大们救命啊~

cngkqy 2007-10-24 10:05:58
<script >
function AllAreaWord()
{
if(document.all("tab").rows.length==0)
{
alert("没有内容可导!");
return;
}
try{
var oWD = new ActiveXObject("Word.Application");
}catch(e)
{
alert("无法调用Office对象,请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中!");
return;
}
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(tab); //tab 为导出数据所在的表格ID
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.ActiveDocument.ActiveWindow.View.Type=3 //设定显示为页面视图状态
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 >
</tr >
<Tr >
<Td >2 </td >
</tr >
<Tr >
<Td >3 </td >
</tr >
</table >
<input type=button name= 'button_export ' title= '导出到word ' onclick=AllAreaWord() value=下载到word >


各位老大,上边那段代码是导入指定表格到Word中,各位老大可以直接可以存为htm文件运行。现在它这个导出文档是把整个表格输出到一个文档中去了,如果内容太多,它会自己自动分到下一页。但是如果我是想遍历表格的行使它一行内容就占用一页文档要怎么做呢?比如说我想让上边的三行表格遍历后能够分别分为三页显示。
各位老大,我查了好资料,自己写遍历的代码试了试,不管怎么写都不行,只好来求助各位老大了~
...全文
1615 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
mengjixinglove 2011-02-24
  • 打赏
  • 举报
回复
怎麼解決的,貼出來嘛...看看.
jgjgjg23 2008-04-28
  • 打赏
  • 举报
回复
学习了。。
weoln 2008-04-21
  • 打赏
  • 举报
回复
好东东!找了好久!
cngkqy 2008-02-21
  • 打赏
  • 举报
回复
去我CSDN博客上看,发不到了发邮件,发短信
asdliujun 2007-12-18
  • 打赏
  • 举报
回复
如何解决的呢?、、、、、
cngkqy 2007-10-26
  • 打赏
  • 举报
回复
唉,最后还是我自己解决了
swafboxh 2007-10-24
  • 打赏
  • 举报
回复
学习中








vlysses 2007-10-24
  • 打赏
  • 举报
回复
有相当的难度,盼高手出现
yuan74521940 2007-10-24
  • 打赏
  • 举报
回复
帮顶...
一点都不会!!!!!
呵呵...
hy_lihuan 2007-10-24
  • 打赏
  • 举报
回复
哈哈,不会

62,244

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧