如何提取网页表到word,提取,网页

1.网页表格导出到word

function (tableName) { if(document.all(tableName).rows.length==0) { alert（"没有内容可导！"）； return; } var oWord; try{ oWord = new ActiveXObject("Word.Application"); // Get a new workbook. }catch(e) { alert（"无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！"）； return; } var oDocument = oWord.Documents.Add(); var oDocument = oWord.ActiveDocument; //oDocument.Paragraphs.Add(); oDocument.Paragraphs.Last.Alignment = 1; oDocument.Paragraphs.Last.Range.Bold = true; oDocument.Paragraphs.Last.Range.Font.Size = 16; oDocument.Paragraphs.Last.Range.Font.name = "宋体"； oDocument.Paragraphs.Last.Range.InsertAfter(document.all("lblTitle").innerText); oDocument.Paragraphs.Add(); oDocument.Paragraphs.Last.Alignment = 2; oDocument.Paragraphs.Last.Range.Bold = false; oDocument.Paragraphs.Last.Range.Font.Size = 12; oDocument.Paragraphs.Last.Range.Font.name = "宋体"； oDocument.Paragraphs.Last.Range.InsertAfter(document.all("lblSubTitle").innerText); var table = document.all(tableName); var nRows = table.rows.length; var nCols = table.rows(0).cells.length; for (i=0;i

2.如何将网页文件导出到word中

在做项目时碰到的 function OpenWord(){ Layer1.style.border=0 word = new ActiveXObject('Word.Application'); word.Application.Visible = true; var mydoc=word.Documents.Add('',0,1); myRange =mydoc.Range(0,1) var sel=Layer1.document.body.createTextRange() sel.select() Layer1.document.execCommand('Copy') sel.moveEnd('character') myRange.Paste(); location.reload() word.ActiveWindow.ActivePane.View.Type=9 }。