|
日歷
導(dǎo)航
常用鏈接
留言簿(2)
隨筆檔案
搜索
最新評(píng)論
閱讀排行榜
評(píng)論排行榜
|
  function doPrint(servlet, form)  {
 var oWord = new ActiveXObject("Word.Application");
var oDoc = oWord.Documents.Add("",0,1);
var strFields = form.elements["gFields"].value;
var fields = strFields.split(",");
oWord.Selection.TypeParagraph();
oWord.Selection.Style = oDoc.Styles("正文");
var wdPageBreak = 7;
oWord.Selection.InsertBreak(wdPageBreak); //生成下一頁(yè)，用于產(chǎn)生正文部分。當(dāng)前頁(yè)用于生成目錄
  for(var i=0;i<fields.length;i++){
form.elements["gFields"].value = fields[i];
var oRange = oWord.Selection.Range;
pastObj(servlet,form,oWord);
 }
oWord.Selection.TypeBackspace(); //去掉最后一頁(yè)
oWord.Selection.HomeKey(6); //返回首頁(yè)的第一行
oWord.Selection.Font.Bold = 9999998; //加粗
oWord.Selection.Font.Size = 16; //設(shè)置字體大小（3號(hào)）
oWord.Selection.TypeText("目錄");
oWord.Selection.ParagraphFormat.Alignment = 1; //居中
oWord.Selection.TypeParagraph(); //換行
oWord.Selection.Style = oDoc.Styles("正文"); //樣式設(shè)為正文
oWord.Application.WindowState = 2;
oWord.Application.WindowState = 0;
//生成目錄
oWord.ActiveDocument.TablesOfContents.add(oWord.Selection.Range,true,1,3,false,"",true,true,"",true,true,true);
oWord.ActiveDocument.TablesOfContents(1).TabLeader = 1
oWord.ActiveDocument.TablesOfContents.Format = 0;
oWord.Selection.Sections(1).Footers(1).PageNumbers.Add(2,true); //在頁(yè)腳出生成頁(yè)碼
oWord.Application.Visible = true;
//退出word
//oWord.Quit();
oWord = null;
 }
function pastObj(servlet, form,oWord){
var ajax = new AJAXInteraction(servlet, function(requestText) {
if (requestText == "FAILED") {
return;
}
else {
var oDoc = oWord.ActiveDocument;
var sele = oWord.Selection;
sele.Style = oDoc.Styles("標(biāo)題 1"); //設(shè)置樣式為標(biāo)題1
var tempObj = document.getElementById("content");
tempObj.innerHTML = requestText;
var title = document.getElementById("title_"+form.elements["gFields"].value).value;
oWord.Selection.TypeText(title); //取得單位名稱，并設(shè)為標(biāo)題
sele.TypeParagraph(); //換行
sele.Style = oDoc.Styles("正文"); //設(shè)置樣式為正文
var arrs = requestText.split("^^^");
for(var i=0;i<arrs.length;i++){
var obj = document.getElementById("content");
obj.innerHTML = arrs[i];
var sel = document.body.createTextRange();
sel.moveToElementText(obj);
sel.select();
sel.execCommand("Copy");
sele.paste();
var wdPageBreak = 7;
sele.InsertBreak(wdPageBreak); //生成下一頁(yè)
}
//sele.TypeParagraph();
//sele.TypeText("測(cè)試1");
//sele.Style = oDoc.Styles("正文");
}
});
ajax.doPost(getRequestBody(form));
}
評(píng)論:
-
# re: 導(dǎo)出到word，并產(chǎn)生目錄
Posted @ 2007-10-11 19:34
你好,最近我在嘗試做java導(dǎo)word的功能,使用的是jacob.基本功能都能實(shí)現(xiàn),但設(shè)置標(biāo)題樣式這塊,怎么嘗試也不成功.我看到你的這段代碼里有這段功能,但內(nèi)容不完不整,能不能給出一個(gè)完整的例子.謝謝.
huoshaodao-521@163.com 回復(fù) 更多評(píng)論
-
# re: 導(dǎo)出到word，并產(chǎn)生目錄
Posted @ 2009-06-04 13:49
特別期望能得到用java代碼實(shí)現(xiàn)的生成目錄和頁(yè)碼的功能。所以希望作者能給與詳細(xì)的代碼，因?yàn)檫@段js我不知道怎么去調(diào)。我的QQ：350562587 回復(fù) 更多評(píng)論
-
# re: 導(dǎo)出到word，并產(chǎn)生目錄
Posted @ 2011-10-27 17:22
這是寫什么啊，故意放一點(diǎn)點(diǎn)。舍不得啊 回復(fù) 更多評(píng)論
-
# re: 導(dǎo)出到word，并產(chǎn)生目錄
Posted @ 2011-11-21 15:31
請(qǐng)問(wèn)，利用Velocity模板導(dǎo)出word時(shí)，怎么生成目錄啊？ 回復(fù) 更多評(píng)論
|