复制代码 代码如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="javascript">
function AutomateWordAutoPaging(prefixion,Count)
{
var oWD = new ActiveXObject("Word.Application");
var oDC = oWD.Documents.Add();
oDC.ShowGrammaticalErrors = false; //屏蔽语法检查
oDC.ShowSpellingErrors = false; //屏蔽拼写检查
var oRange =oDC.Range(0,1);
for (i=0;i<Count;i++)
{
var sel = document.body.createTextRange();
var TableName = prefixion+i;
var Table = document.getElementById(TableName)
sel.moveToElementText(Table);
sel.select();
sel.execCommand("Copy");
oWD.Selection.Paste();
oWD.Selection.InsertBreak(); //插入分页符
}
//oWD.ActiveDocument.ActiveWindow.View.Type=3 //设置浏览模式
oWD.Visible = true;
};
function AutomateExcel(prefixion)
{
var elTable = document.getElementById("AutomateExcel");
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText(elTable);
oRangeRef.execCommand("Copy");
try{
var appExcel = new ActiveXObject( "Excel.Application" );
}catch(e)
{
alert("无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！");
return;
}
appExcel.Visible = true;
appExcel.Workbooks.Add().Worksheets.Item(1).Paste();
appExcel.Workbooks(1).Worksheets.Item(1).Columns("A:A").ColumnWidth = 100;
//appExcel.Workbooks(1).Worksheets.Item(1).Columns("B:B").ColumnWidth = 21;
appExcel = null
};
</script>
</head>
<body>
<input type="button" value="导出到Word自动分页" onclick="AutomateWordAutoPaging('Table',5)" />
<input type="button" value="导出到Excel控制列宽" onclick="AutomateExcel('Table')"/>
<div id="AutomateExcel">
<TABLE class=tabp id="Table0" cellSpacing=0 cellPadding=2 width="100%" align=center border=1>
<TR>
<TD width="100%" align="center">标题0</TD>
</TR>
<TR>
<TD align="center">内容0</TD>
</TR>
</TABLE>
<BR>
<TABLE class=tabp id="Table1" cellSpacing=0 cellPadding=2 width="100%" align=center border=1>
<TR>
<TD width="100%" align="center">标题1</TD>
</TR>
<TR>
<TD align="center">内容1</TD>
</TR>
</TABLE>
<BR/>
<TABLE class=tabp id="Table2" cellSpacing=0 cellPadding=2 width="100%" align=center border=1>
<TR>
<TD width="100%" align="center">标题2</TD>
</TR>
<TR>
<TD align="center">内容2</TD>
</TR>
</TABLE>
<BR/>
<TABLE class=tabp id="Table3" cellSpacing=0 cellPadding=2 width="100%" align=center border=1>
<TR>
<TD width="100%" align="center">标题3</TD>
</TR>
<TR>
<TD align="center">内容3</TD>
</TR>
</TABLE>
<BR/>
<TABLE class=tabp id="Table4" cellSpacing=0 cellPadding=2 width="100%" align=center border=1>
<TR>
<TD width="100%" align="center">标题4</TD>
</TR>
<TR>
<TD align="center">内容4</TD>
</TR>
</TABLE>
<BR/>
</div>
</body>
</html>
相关推荐：
GPT哪个模型是最新的？AI语言生成的未来,ai回头
ChatGPT安装包Windows版-让智能助手触手可得,q和ai
seo的推广工具，seo推广软件哪个好 ,国内ai写作论文怎么样
OpenAI推出的GPT-4Turbo大幅降低了AI应用成本，推动了AI技术的普及化,ai*版
AI免费文章生成器：轻松创作高质量内容的终极工具
好用的AI智能工具，让生活与工作更高效！
seo网络上什么意思，seo表示什么 ,如何避免今日头条ai写作检测
打造内容创作新时代：有言AI生成助力创作者释放灵感
ChatGPT打不开了吗？如何快速解决常见问题，恢复顺畅体验！,ai13212511845
为什么网站要做seo，网站做seo的目的是什么 ,ai初选
如何快速写出高质量的AI文章：从入门到精通
什么是seo公司口碑，seo品牌 ,ai大模型训练是什么意思
SEO导流：如何通过精准优化实现网站流量大爆发,网站优化优化怎么做
什么叫改写-解读“改写”背后的艺术与技巧,网站制作建设模板图片
SEO外包：提升网站排名与品牌曝光的最佳选择,大创建设网站
SEO怎么排名？这5大技巧，轻松提升网站排名,人人都可ai
ChatGPT昨晚突然不能使用，背后真相令人意想不到！,edga ai
SEO职位：数字营销的核心，开启职业新高峰,汕尾网站建设推广厂商
AI助手推进：智能化时代的企业革命,ai改变图片颜色
ChatGPT无法加载？检查网络并尝试重启，助您快速恢复畅通体验,burj ai
SEO精通：让你的内容在搜索引擎中脱颖而出,跨境电商 推广营销
SEO架构：提升网站流量的核心策略,东营南江全平台营销推广
从语言助手到智能生活伙伴，未来的智能助手如何改变我们的生活,网站建设分站公司
怎么用AI缩写文章，轻松提高效率的全新方法
好用的人工智能AI软件推荐，让你的生活更智能！
用AI征文工具，轻松创作出精彩文章！
什么是亚马逊seo策略，亚马逊的seo推广是什么 ,天天学术ai写作优惠券
ChatGPT最近不好用了？了解这些背后的原因与解决方案,ai sketcher
ChatGPTWindows版本：让AI助手成为你的工作与生活得力助手,Ai相减变形
SEO永远，数字营销的核心力量,广州seo搜索栏内容
ChatGPT启动时遇到问题？快速解决方案让你畅享智能对话体验,ai如何保存logo
seo网站排名优化哪家好，seo网站优化平台 ,ai斗蟋
SEO词的魔力：如何通过关键词优化打破流量瓶颈,免费网站建设高端
SEO在线服务-让您的网站快速跃升至搜索引擎前列,江西小红书营销推广案例
ChatGPT网站突然不能用了？如何快速解决这个问题，让你重新畅享AI对话！,ai新建多个画板
WPJVX：开启数字化未来的智慧平台,关键词排名技术咨询乐云seo
ChatGLM不能搜索网页内容，你真的了解它的局限性吗？,ai修复情侣
AI缩写文本：助力智能生活的革新力量,ai智能写作生成神器下载
SEO行销：开启网站流量增长的秘密武器,百威产品关键词查询排名
文章生成AI：让写作轻松高效的神奇工具
seO经理是什么岗位，seo经理招聘 ,ai写作重复被查
SEO与网络推广机构：如何选择最适合你的数字营销合作伙伴,ai写作软件性价比高吗
亚马逊seo信息是什么，亚马逊seo关键词优化软件 ,光谷ai
创作新时代：自动生成文章AI的魅力与未来
优化入口：提升网站流量与转化率的秘密武器,琼海关键词排名品牌
AI免费写作一键生成，效率与创意的完美结合
AI文章比对技术：引领写作与内容审核的新革命,ai智能写作小说免费
SEO要点：提升网站排名的核心技巧与策略,福田市网站建设推广费用
为什么选择收录网站是企业在线营销的必备策略,全网营销与推广
AI上的文章属于原创吗？人工智能创作内容的归属问题
新闻资讯
常见问题