<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è)置字體大小(3號)
        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: 博客園 模板提供:滬江博客
    主站蜘蛛池模板: 亚洲视频2020| 亚洲国产精品无码专区影院| 亚洲综合亚洲国产尤物| 日本免费中文字幕| 亚洲国产美女精品久久久久∴| 成人a毛片免费视频观看| 亚洲精品在线视频| 久久成人18免费网站| 国产AV无码专区亚洲AV手机麻豆| 一级特黄色毛片免费看| 亚洲精品美女久久久久99| 国产精品白浆在线观看免费| 久久久久亚洲精品无码系列| 免费观看激色视频网站bd| 7777久久亚洲中文字幕| 日韩免费a级在线观看| 处破女第一次亚洲18分钟| 亚洲人成无码www久久久| 国产免费无码AV片在线观看不卡 | 亚洲精品tv久久久久| 亚洲高清不卡视频| 成人免费的性色视频| 人人狠狠综合久久亚洲| 亚洲乱码国产一区三区| 97视频免费观看2区| 亚洲av成人中文无码专区| 中文亚洲AV片在线观看不卡| 久久免费福利视频| 亚洲熟妇久久精品| 中文字幕亚洲日韩无线码| 久久国产色AV免费观看| 国产成人综合亚洲| 亚洲国产一区在线| 午夜免费福利网站| 女同免费毛片在线播放| 亚洲国产成人久久精品app| 亚洲国产成人乱码精品女人久久久不卡 | 日韩电影免费在线观看| 亚洲宅男精品一区在线观看| 亚洲天堂中文字幕在线| 日韩欧毛片免费视频|