將網頁指定表格內的內容匯出到word

將網頁內指定表格內的內容匯出到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;
 }