<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    xih  
    日歷

    導(dǎo)航

    常用鏈接

    留言簿(2)

    隨筆檔案

    搜索

    •  

    最新評論

    閱讀排行榜

    評論排行榜

     

     

    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);        
    //生成下一頁,用于產(chǎn)生正文部分。當(dāng)前頁用于生成目錄
        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();        
    //去掉最后一頁
        oWord.Selection.HomeKey(6);        //返回首頁的第一行
        oWord.Selection.Font.Bold = 9999998;    //加粗
        oWord.Selection.Font.Size = 16;        //設(shè)置字體大?。?號)
        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);        //在頁腳出生成頁碼
        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);        
    //生成下一頁
                    }

                
    //sele.TypeParagraph();
                //sele.TypeText("測試1");
                //sele.Style = oDoc.Styles("正文");
                }

            }
    );
        ajax.doPost(getRequestBody(form));
    }

     

    posted on 2007-07-16 09:30 費(fèi)思量 閱讀(2664) 評論(4)  編輯  收藏
    評論:
    • # re: 導(dǎo)出到word,并產(chǎn)生目錄  sunxilai 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ù)  更多評論   

    • # re: 導(dǎo)出到word,并產(chǎn)生目錄  王鴻雁 Posted @ 2009-06-04 13:49
      特別期望能得到用java代碼實(shí)現(xiàn)的生成目錄和頁碼的功能。所以希望作者能給與詳細(xì)的代碼,因?yàn)檫@段js我不知道怎么去調(diào)。我的QQ:350562587  回復(fù)  更多評論   

    • # re: 導(dǎo)出到word,并產(chǎn)生目錄  第四代 Posted @ 2011-10-27 17:22
      這是寫什么啊,故意放一點(diǎn)點(diǎn)。舍不得啊  回復(fù)  更多評論   

    • # re: 導(dǎo)出到word,并產(chǎn)生目錄   馬銀濤 Posted @ 2011-11-21 15:31
      請問,利用Velocity模板導(dǎo)出word時(shí),怎么生成目錄啊?  回復(fù)  更多評論   


    只有注冊用戶登錄后才能發(fā)表評論。


    網(wǎng)站導(dǎo)航:
     
     
    Copyright © 費(fèi)思量 Powered by: 博客園 模板提供:滬江博客
    主站蜘蛛池模板: 亚洲成人免费在线观看| 久久国产免费观看精品3| 亚洲国产美女精品久久| 国产成人高清亚洲| 午夜dj在线观看免费视频| 青青青国产手机频在线免费观看 | 午夜精品一区二区三区免费视频| 亚洲A∨精品一区二区三区下载 | 国产精品成人观看视频免费 | 亚洲AV无码一区二区三区DV | 久久成人18免费网站| 亚洲成a∧人片在线观看无码| 亚洲成人免费在线观看| 亚洲午夜免费视频| 亚洲国产另类久久久精品小说 | 国产亚洲精品精品精品| 亚洲熟妇自偷自拍另欧美| 亚洲一级在线观看| 亚洲精品高清国产麻豆专区| 老汉色老汉首页a亚洲| 亚洲AV无码久久精品蜜桃| 亚洲精品午夜国产VA久久成人| 亚洲人成无码网WWW| 亚洲国产精品自产在线播放| 四虎永久在线免费观看| 免费一级肉体全黄毛片| 四虎永久成人免费| 亚洲成AⅤ人影院在线观看| 免费一级毛片在级播放| mm1313亚洲国产精品美女| 少妇亚洲免费精品| 亚洲不卡无码av中文字幕| 亚洲国产香蕉人人爽成AV片久久 | 中美日韩在线网免费毛片视频 | 亚洲日韩VA无码中文字幕| 亚洲国产成人五月综合网 | 国产精品亚洲综合一区在线观看| 在线视频亚洲一区| 人人公开免费超级碰碰碰视频| 国产精品极品美女自在线观看免费 | jizz免费一区二区三区|