您的位置:首页 > 其它

web项目页面保存为word文件

2012-04-17 16:32 375 查看
没找到什么完美方案,只有一个使用activeXObject的还算方便。

/**//**//**//*
*
* @param {Object} cont 要导出的html元素内容的id,注意不要加双引号
* @param {Object} key   分页关键字
*/
function AllAreaWord(cont,key)
{
var oWD = new ActiveXObject("Word.Application");
//默认为页面视图
var oDC = oWD.Documents.Add("", 0, 0);

//横向打印设置部分
oDC.PageSetup.LineNumbering.Active = false;
//oDC.PageSetup.Orientation.wdOrientLandscape = 1; //设置为横向打印
oDC.PageSetup.TopMargin = oDC.Application.CentimetersToPoints(3.17);
oDC.PageSetup.BottomMargin = oDC.Application.CentimetersToPoints(3.17);
oDC.PageSetup.LeftMargin = oDC.Application.CentimetersToPoints(2.54);
oDC.PageSetup.RightMargin = oDC.Application.CentimetersToPoints(2.54);
oDC.PageSetup.Gutter = oDC.Application.CentimetersToPoints(0);
oDC.PageSetup.HeaderDistance = oDC.Application.CentimetersToPoints(1.5);
oDC.PageSetup.FooterDistance = oDC.Application.CentimetersToPoints(1.75);
//oDC.PageSetup.PageWidth = oDC.Application.CentimetersToPoints(29.7);
//oDC.PageSetup.PageHeight = oDC.Application.CentimetersToPoints(21);
oDC.PageSetup.FirstPageTray = 0;
oDC.PageSetup.OtherPagesTray = 0;
oDC.PageSetup.SectionStart = 2;
oDC.PageSetup.OddAndEvenPagesHeaderFooter = false;
oDC.PageSetup.DifferentFirstPageHeaderFooter = false;
oDC.PageSetup.VerticalAlignment = 0;
oDC.PageSetup.SuppressEndnotes = false;
oDC.PageSetup.MirrorMargins = false;
oDC.PageSetup.TwoPagesOnOne = false;
oDC.PageSetup.BookFoldPrinting = false;
oDC.PageSetup.BookFoldRevPrinting = false;
oDC.PageSetup.BookFoldPrintingSheets = 1
oDC.PageSetup.GutterPos = 0;
oDC.PageSetup.LayoutMode = 2;

var oRange = oDC.Range(0, 1);
//var oRange1 = oDC.Range(0,2);
var sel = document.body.createTextRange();
//参数为html元素id
sel.moveToElementText(cont);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//得到打开后word的selection对象
var selection = oWD.Selection;
//设置字体大小
selection.Font.Size = 14;
//ctrl+A 全选操作
selection.WholeStory();
//清除格式
selection.Find.ClearFormatting();
//指定查找关键字
selection.Find.Text = key;
//^m为手动分页符标记
//向下查找
selection.Find.Forward = true;
selection.Find.Wrap = 1;
//不区分大小写
selection.Find.MatchCase = false;
//不匹配整个单词
selection.Find.MatchWholeWord = false;
//如果找到指定字符串返回真,否则返回false
while (selection.Find.Execute())
{
//插入分页符,分页符常量为7,具体可查word api
selection.InsertBreak(7);
}
//保存word文档为test.doc
oDC.SaveAs("test.doc");
}


保存按钮

<input class="" type="button"  value="保存" onclick ="javascript:AllAreaWord(middle, '');" />
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐