关于把web页导入到World

jack15850798154 2011-02-26 12:27:47

如何实现把web页面中有checkbox等控件的页面导入到world中并且保持着原有的样式！谢谢。

...全文

63 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

子夜__ 2011-02-26

打赏
举报

MS只能将控件内容导入进去。。

MSDNXGH 2011-02-26

打赏
举报

不可能吧，以图片的方式，也许就可以吧

anbin0814 2011-02-26

打赏
举报



 function AllAreaWord() {

            try{

            var oWD = new ActiveXObject("Word.Application");

            }catch(e){

            alert("请先安装Word再进行导出");

            return false;

            }

            var oDC = oWD.Documents.Add("", 0, 1);

            var oRange = oDC.Range(0, 1);

            var sel = document.body.createTextRange();

            sel.moveToElementText(PrintA);

            sel.select();

            sel.execCommand("Copy");

            oRange.Paste();

            oWD.Application.Visible = true;

            //window.close();

            }

gg_lihui 2011-02-26

打赏
举报

点击IE工具栏中的使用”MS OFFICE WORD编辑“即可。

子夜__ 2011-02-26

打赏
举报

<HTML>

    <HEAD>

      <title>WEB页面导出为EXCEL文档的方法

      </title>

    </HEAD>

<body>

<BR>

<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13">

<TR style="text-align : center;">

<TD>单元格A</TD>

<TD>单元格A</TD>

<TD>单元格A</TD>

<TD>单元格A</TD>

</TR>

<TR>

<TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">单元格合并行A</FONT></TD>

</TR>

</TABLE>

<BR>

<table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0">

<TR style="text-align : center;">

<TD>单元格B</TD>

<TD>单元格B</TD>

<TD>单元格B</TD>

<TD>单元格B</TD>

</TR>

<TR>

<TD colSpan=4 style="text-align : center;">单元格合并行B</TD>

</TR>

</TABLE>

<br><br><br>

<input type="button" onclick="javascript:AllAreaWord();" value="导出页面指定区域内容到Word">

<input type="button" onclick="javascript:AllAreaExcel();" value="导出页面指定区域内容到Excel">

<input type="button" onclick="javascript:CellAreaExcel();" value="导出表单单元格内容到Excel">

<SCRIPT LANGUAGE="javascript">

//指定页面区域内容导入Excel

function AllAreaExcel() 

{

    var oXL = new ActiveXObject("Excel.Application"); 

    var oWB = oXL.Workbooks.Add(); 

    var oSheet = oWB.ActiveSheet;  

    var sel=document.body.createTextRange();

    sel.moveToElementText(PrintA);

    sel.select();

    sel.execCommand("Copy");

    oSheet.Paste();

    oXL.Visible = true;

}

//指定页面区域“单元格”内容导入Excel

function CellAreaExcel() 

{

    var oXL = new ActiveXObject("Excel.Application"); 

    var oWB = oXL.Workbooks.Add(); 

    var oSheet = oWB.ActiveSheet; 

    var Lenr = PrintA.rows.length;

    for (i=0;i<Lenr;i++) 

    { 

     var Lenc = PrintA.rows(i).cells.length; 

     for (j=0;j<Lenc;j++) 

     { 

      oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText; 

     } 

    } 

    oXL.Visible = true; 

} 

//指定页面区域内容导入Word

function AllAreaWord()

{

    var oWD = new ActiveXObject("Word.Application");

    var oDC = oWD.Documents.Add("",0,1);

    var orange =oDC.Range(0,1);

    var sel = document.body.createTextRange();

    sel.moveToElementText(PrintA);

    sel.select();

    sel.execCommand("Copy");

    orange.Paste();

    oWD.Application.Visible = true;

    //window.close();

}

</SCRIPT>

</body></html>

wuyq11 2011-02-26

打赏
举报

操作WORD文件addpicture添加图片mydoc.ActiveWindow.ActivePane.Selection.InlineShapes.AddPicture("C:\\test.jpg", ref oMissing, ref oMissing, ref oMissing);
http://topic.csdn.net/u/20081224/17/220db985-3f50-419d-9f04-0006436ff0c3.html