admin管理员组

文章数量:1516870

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); // 生成下一页，用于产生正文部分。当前页用于生成目录
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 ; // 设置字体大小（3号）
oWord.Selection.TypeText( " 目录 " );
oWord.Selection.ParagraphFormat.Alignment = 1 ; // 居中
oWord.Selection.TypeParagraph(); // 换行
oWord.Selection.Style = oDoc.Styles( " 正文 " ); // 样式设为正文
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( " 标题 1 " ); // 设置样式为标题1
var tempObj = document.getElementById( " content " );
tempObj.innerHTML = requestText;
var title = document.getElementById( " title_ " + form.elements[ " gFields " ].value).value;
oWord.Selection.TypeText(title); // 取得单位名称，并设为标题
sele.TypeParagraph(); // 换行
sele.Style = oDoc.Styles( " 正文 " ); // 设置样式为正文
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));
}

本文标签： 正文换行生成下一

版权声明：本文标题：Flash中心必修课：利用Word快速生成完美目录 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/web/1770696917a3257523.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。