var myword = document.all.myword.ActiveDocument;
var wdapp=new ActiveXObject("Word.Application");
var wddoc=wdapp.Documents.Open("c:\\temp\\hshzoa\\myredword.doc");
var wds=wddoc.Books;
wds("body").Range.InsertFile("c:\\temp\\hshzoa\\myword.doc");以上javascript代码实现在word文档"myredword.doc"中的"body"域中,插入另一个word文档"myword.doc"。
现在的问题是,如何将插入的word文档,按照固定的格式显示,比如不论我插入的文档中段落、字体大小是多少,插入后都以1.5倍行距,字体大小5号字输出?希望大家帮助一下,不胜感激。

解决方案 »

  1.   

    设置字体WordApp. Selection.Font.Size=12   
    <script>
      function wordcontorl(){
        alert("1111")
      var WordApp=new ActiveXObject("Word.Application");
      
    var wdCharacter=1
    var wdOrientLandscape = 1
    WordApp.Application.Visible=true;
    var myDoc=WordApp.Documents.Add();    WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
        
        WordApp. Selection.ParagraphFormat.Alignment=1  //1居中对齐,0为居右
    WordApp. Selection.Font.Bold=true
        WordApp. Selection.Font.Size=20
      
        WordApp. Selection.TypeText("我的标题");
        WordApp. Selection.MoveRight(wdCharacter);    //光标右移字符
        WordApp.Selection.TypeParagraph()         //插入段落
        WordApp. Selection.Font.Size=12        
        WordApp. Selection.TypeText("副标题");        //分行插入日期  
        WordApp.Selection.TypeParagraph()         //插入段落
      
      
      
        var myTable=myDoc.Tables.Add (WordApp.Selection.Range, 8,7)  //8行7列的表格
        //myTable.Style="网格型"
        var aa = "我的列标题"
      
        var TableRange;  //以下为给表格中的单元格赋值
        for (i= 0;i<7;i++)
        {
        with (myTable.Cell(1,i+1).Range)
        {  
        font.Size = 12;
    InsertAfter(aa);
    ColumnWidth =4
    }
    }for (i =0;i<7;i++)
    {
    for (n =0;n<7 ;n++)
    {
          
        with (myTable.Cell(i+2,n+1).Range)
        {font.Size = 12; 
    InsertAfter("bbbb");
    }
    }
    }
        row_count = 0;
        col_count = 0
    myDoc.Protect(1)
    }
    wordcontorl()
    </script>
      

  2.   

    是一个word文件插入到另一个word文件当中,按照一定的格式输出