解决方案 »

  1.   

    这样试试  try {  
                    var fileName = SaveName;  //文件名
                    var areaRes = document.getElementById(tbName);  //指定要输入区域
                    var wordObj = new ActiveXObject("Word.Application");  //指定输出类型
                    var docObj = wordObj.Documents.Add("", 0, 1);
                    var oRange = docObj.Range(0, 1);
                    var sel = document.body.createTextRange();
                    sel.moveToElementText(areaRes);
                    sel.select();
                    sel.execCommand("Copy");
                    oRange.Paste();
                    wordObj.Application.Visible = true;
              //这里修改成你要保存的路径
                   docObj.SaveAs("d:\\"+fileName+".doc");
                
                    
                 
               
    catch (e) {
                    print("Nested catch caught " + e);
    }
      

  2.   

    我安装了office,现在导出就直接打开word了,导出excel提示保存地址
    导出excel代码
    //execl输出
    function tbSaveExcel(SaveName,tbName,_Window)
    {//整个表格拷贝到EXCEL中
        var tableid=tbName;
        var curTbl = _Window.document.getElementById(tableid);
        var oXL = new ActiveXObject("Excel.Application");
        //创建AX对象excel
        var oWB = oXL.Workbooks.Add();
        //获取workbook对象
        var xlsheet = oWB.Worksheets(1);
        //激活当前sheet
        var sel = _Window.document.body.createTextRange();
        sel.moveToElementText(curTbl);
        //把表格中的内容移到TextRange中
        sel.select();
        //全选TextRange中内容
        sel.execCommand("Copy");
        //复制TextRange中内容
        xlsheet.Paste();
        //粘贴到活动的EXCEL中
        oXL.Visible = true;
        //设置excel可见属性    try{
            var fname = oXL.Application.GetSaveAsFilename(SaveName+".xls", "Excel Spreadsheets (*.xls), *.xls");
            if(fname){
                oWB.SaveAs(fname);
            }
            }catch(e){
            print("Nested catch caught " + e);
        }finally{
            oWB.Close(savechanges=false);
            oXL.Quit();
            oXL=null;
             //结束excel进程,退出完成
            idTmr = window.setInterval("Cleanup();",1);
        }
    }
      

  3.   

    这样做是可以保存,但是并没有提示用户保存,我的需求是导出word的同时提示用户选择保存地址
      

  4.   

    你参考一下 
    http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a
      

  5.   

    你参考一下 
    http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
      

  6.   

    你参考一下 
    http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
    主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里
     try {  
                    var fileName = SaveName;  //文件名
                    var areaRes = document.getElementById(tbName);  //指定要输入区域
                    var wordObj = new ActiveXObject("Word.Application");  //指定输出类型
                    var docObj = wordObj.Documents.Add("", 0, 1);
                    var oRange = docObj.Range(0, 1);
                    var sel = document.body.createTextRange();
                    sel.moveToElementText(areaRes);
                    sel.select();
                    sel.execCommand("Copy");
                    oRange.Paste();
                    wordObj.Application.Visible = true;
              //这里修改成你要保存的路径
              
              var filePath=showDialog();
              if(filePath) docObj.SaveAs( filePath);
                   
                
                 
       function showDialog(){
    var  dial=wordObj.FileDialog(2);
      return dial.show()==-1?dial.SelectedItems(1):'';
     }               
               
    }catch (e) {
                    print("Nested catch caught " + e);
    }
     
      

  7.   

    你参考一下 
    http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
    主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里
     try {  
                    var fileName = SaveName;  //文件名
                    var areaRes = document.getElementById(tbName);  //指定要输入区域
                    var wordObj = new ActiveXObject("Word.Application");  //指定输出类型
                    var docObj = wordObj.Documents.Add("", 0, 1);
                    var oRange = docObj.Range(0, 1);
                    var sel = document.body.createTextRange();
                    sel.moveToElementText(areaRes);
                    sel.select();
                    sel.execCommand("Copy");
                    oRange.Paste();
                    wordObj.Application.Visible = true;
              //这里修改成你要保存的路径
              
              var filePath=showDialog();
              if(filePath) docObj.SaveAs( filePath);
                   
                
                 
       function showDialog(){
    var  dial=wordObj.FileDialog(2);
      return dial.show()==-1?dial.SelectedItems(1):'';
     }               
               
    }catch (e) {
                    print("Nested catch caught " + e);
    }
     大神谢谢了,这个很有用,