公文处理方案实现之模板使用

<script type="text/javascript">

 var wordApp = new ActiveXObject("word.application");
wordApp.Visible = true;

///    <summary>
///        依模板新建一个文档，合并正文内容到新建文档中并设置字体字号。
///    </summary>
///    <param name="wordApp">Word实例</param>
///    <param name="templatePath">Word模板全路径</param>
///    <param name="wordFilePath">公文正文内容文全路径</param>
///    <returns type="Document">返回新建Word的文档实例</returns>
function MergeDocument(wordApp , templatePath, bookmarkName, wordFilePath)
{
    var docPreview = null;

    try
    {
        //通过模板新建文档
        docPreview = wordApp.Documents.Add(templatePath);
        
        //找到正文域
        var bmWord = docPreview.Bookmarks.Item(bookmarkName);
        
        //得到区域
        var desRange = bmWord.Range;
        
        //设置为空字串，注意不能是 ''
        //这一步导致域被删除
        desRange.Text = ' ';
        //新建一个域
        docPreview.Bookmarks.Add(bookmarkName, desRange);
        
        //再次得到区域
        desRange = bmWord.Range
        
        //先收缩，这样导入时，不会把域删除
        desRange.Collapse();
        
        //导入合并正文
        desRange.ImportFragment(wordFilePath, true);
        
        //再次得到域区域
        desRange = bmWord.Range
        
        //设置正文内容的格式
        desRange.Font.Size = 16;
        
        //最后删除域
        bmWord.Delete();
        
        
        return docPreview;
        
    }
    catch(e)
    {
        //关闭
        //docPreview.Close();
        alert(e);
        return null;
    }
    

}

///    <summary>
///     设置每个域的值
///    </summary>
///    <param name="docInst">Word的文档实例</param>
///    <param name="regionValues">域名和值的数组 [{name:"name1", value:"value1", maxWidth:8.23 (default:0)}]</param>
///    <returns type="Document">返回Word的文档实例</returns>
function FillBookmarks(docInst, regionValues)
{
    if(docInst == null || (regionValues || []).length == 0)
        return docInst;
        
    //设置每个域的值
    for(var i = 0; i < regionValues.length; ++i)
    {
        var rv = regionValues[i];
        rv.maxWidth = rv.maxWidth || 0;
        try
        {
            if(rv.maxWidth == 0)
            {
                //不保存域，直接替换
                docInst.Bookmarks.Item(rv.name).Range.Text = rv.value;
            }
            else
            {
                //先设置域的值，然后设置单行的最大宽度，这样会使文字紧缩
                var range = docInst.Bookmarks.Item(rv.name).Range;
                if(range != null)
                {
                    range.Text = rv.value;
                    docInst.Bookmarks.Add(rv.name, range);
                    range = docInst.Bookmarks.Item(rv.name).Range;
                    range.FitTextWidth = docInst.Application.CentimetersToPoints(rv.maxWidth);
                    docInst.Bookmarks.Item(rv.name).Delete();
                }
            }
        }
        catch(e)
        {
        }
    }
    
}

///    <summary>
///     填充附件列表
///    </summary>
///    <param name="docInst">Word的文档实例</param>
///    <param name="bookmarkName">Word的文档实例</param>
///    <param name="attachments">附件的字符串数组 ['附件１','附件2','附件3','附件4','附件5']</param>
///    <returns type="Document">返回Word的文档实例</returns>
function FillAttachments(docInst, bookmarkName, attachments)
{
    if(docInst == null || bookmarkName == null || (attachments || []).length == 0)
        return docInst;
    
    var range = docInst.Bookmarks.Item(bookmarkName).Range
    range.Text = '';
    for(var i = 0; i < attachments.length; ++i)
    {
        var value = (i == 0 ? "附件：" : "　　　") + attachments[i] ;
        if(i > 0)
            range.InsertParagraphAfter();
        range.InsertAfter(value);
    }
}

var doc = MergeDocument(wordApp, 'e:\\test\\temp.dot', "正文", 'e:\\test\\word.doc');
FillBookmarks(doc, 
        [
            {name:"红头", value:"中国移动集团河北分公司文件", maxWidth:15.2},
            {name:"标题", value:"正文标题"},
            {name:"文号", value:"河北移动〔2009〕88号"},
            {name:"主送", value:"全通公司"},
            {name:"封发时间", value:"二○○九年九月七日"},
            {name:"抄送", value:"抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位,抄送单位"},
            {name:"印发", value:"中国移动集团河北分公司网络信息综合部  2009年9月7日印发", maxWidth:15.6}
        ]);

FillAttachments(doc, "附件", ['附件１','附件2','附件3','附件4','附件5']);

</script>

 

代码下载：https://files.cnblogs.com/evlon/word_test_1201.zip