现在的位置: 首页 > 综合 > 正文

将网页指定表格内的内容导出到word

2013年08月10日 ⁄ 综合 ⁄ 共 1694字 ⁄ 字号 评论关闭
将网页内指定表格内的内容导出到word,这样做的目的,1是生成规定格式的word范文,如合同、通知等;2是将网页内容加以保存;

 function jscomExportTableToWord(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<nRows;i++)
  {
   nCol=0;
   nCols=table.rows(i).cells.length;
   for (j=0;j<nCols;j++)
   {
    if(table.rows(i).cells(j))
    {
     oDocument.Paragraphs.Add();
     oDocument.Paragraphs.Last.Alignment = 0;
     oDocument.Paragraphs.Last.Range.Bold =false;
     if(j==0)
      oDocument.Paragraphs.Last.Range.Font.Size = 14;
     else
      oDocument.Paragraphs.Last.Range.Font.Size = 10;
     oDocument.Paragraphs.Last.Range.Font.name = "宋体";
     oDocument.Paragraphs.Last.Range.InsertAfter(table.rows(i).cells(j).innerText);
    }
    nCol=nCol+1;
   }
  }
  oWord.Visible = true;
 }

 

抱歉!评论已关闭.