word 輸出目錄

function doPrint(servlet, form) {
InBlock.gif    
var oWord = new ActiveXObject("Word.Application");
InBlock.gif    
var oDoc = oWord.Documents.Add("",0,1);
InBlock.gif    
var strFields = form.elements["gFields"].value;
InBlock.gif    
var fields = strFields.split(",");
InBlock.gif    oWord.Selection.TypeParagraph();    
InBlock.gif    oWord.Selection.Style 
= oDoc.Styles("正文");
InBlock.gif    
var wdPageBreak = 7;
InBlock.gif    oWord.Selection.InsertBreak(wdPageBreak);        
//生成下一頁,用於產生正文部分。當前頁用於生成目錄
ExpandedSubBlockStart.gif
    for(var i=0;i<fields.length;i++){
InBlock.gif        form.elements[
"gFields"].value = fields[i];
InBlock.gif        
var oRange = oWord.Selection.Range;
InBlock.gif        pastObj(servlet,form,oWord);
InBlock.gif        
ExpandedSubBlockEnd.gif    }

InBlock.gif    oWord.Selection.TypeBackspace();        
//去掉最後一頁
InBlock.gif
    oWord.Selection.HomeKey(6);        //返回首頁的第一行
InBlock.gif
    oWord.Selection.Font.Bold = 9999998;    //加粗
InBlock.gif
    oWord.Selection.Font.Size = 16;        //設置字體大小(3號)
InBlock.gif
    oWord.Selection.TypeText("目錄");
InBlock.gif    oWord.Selection.ParagraphFormat.Alignment 
= 1;        //居中
InBlock.gif
    oWord.Selection.TypeParagraph();        //換行
InBlock.gif
    oWord.Selection.Style = oDoc.Styles("正文");        //樣式設爲正文
InBlock.gif
    oWord.Application.WindowState = 2;
InBlock.gif    oWord.Application.WindowState 
= 0;
InBlock.gif    
//生成目錄
InBlock.gif
    oWord.ActiveDocument.TablesOfContents.add(oWord.Selection.Range,true,1,3,false,"",true,true,"",true,true,true);
InBlock.gif    oWord.ActiveDocument.TablesOfContents(
1).TabLeader = 1
InBlock.gif    oWord.ActiveDocument.TablesOfContents.Format 
= 0;
InBlock.gif    oWord.Selection.Sections(
1).Footers(1).PageNumbers.Add(2,true);        //在頁腳出生成頁碼
InBlock.gif
    oWord.Application.Visible = true;
InBlock.gif    
//退出word
InBlock.gif
    //oWord.Quit();
InBlock.gif
    oWord = null;
ExpandedBlockEnd.gif}

ExpandedBlockStart.gif
function pastObj(servlet, form,oWord){
ExpandedSubBlockStart.gif    
var ajax = new AJAXInteraction(servlet, function(requestText) {
ExpandedSubBlockStart.gif            
if (requestText == "FAILED"{
InBlock.gif                
return;
ExpandedSubBlockEnd.gif            }

ExpandedSubBlockStart.gif            
else {
InBlock.gif                
var oDoc = oWord.ActiveDocument;
InBlock.gif                
var sele = oWord.Selection;
InBlock.gif                sele.Style 
= oDoc.Styles("標題 1");        //設置樣式爲標題1
InBlock.gif
                var tempObj = document.getElementById("content");
InBlock.gif                tempObj.innerHTML 
= requestText;
InBlock.gif                
var title = document.getElementById("title_"+form.elements["gFields"].value).value;
InBlock.gif                oWord.Selection.TypeText(title);    
//取得單位名稱,並設爲標題
InBlock.gif
                sele.TypeParagraph();        //換行
InBlock.gif
                sele.Style = oDoc.Styles("正文");    //設置樣式爲正文
InBlock.gif
                var arrs = requestText.split("^^^");
ExpandedSubBlockStart.gif                
for(var i=0;i<arrs.length;i++){
InBlock.gif                    
var obj = document.getElementById("content");
InBlock.gif                    obj.innerHTML 
= arrs[i];
InBlock.gif                    
var sel = document.body.createTextRange();
InBlock.gif                    sel.moveToElementText(obj);
InBlock.gif                    sel.select();
InBlock.gif                    sel.execCommand(
"Copy");
InBlock.gif                    sele.paste();
InBlock.gif                    
var wdPageBreak = 7;
InBlock.gif                    sele.InsertBreak(wdPageBreak);        
//生成下一頁
ExpandedSubBlockEnd.gif
                }

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

ExpandedSubBlockEnd.gif        }
);
InBlock.gif    ajax.doPost(getRequestBody(form));
ExpandedBlockEnd.gif}
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章