Generate javascript code for word and excel by copying tables

  • 2020-03-30 01:23:18
  • OfStack

 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title> Headless document </title> 
<script language="javascript"> 
function AutomateWordAutoPaging(prefixion,Count) 
{ 
var oWD = new ActiveXObject("Word.Application"); 
var oDC = oWD.Documents.Add(); 
oDC.ShowGrammaticalErrors = false; //Mask syntax checking
oDC.ShowSpellingErrors = false; //Block spell check
var oRange =oDC.Range(0,1); 

for (i=0;i<Count;i++) 
{ 
var sel = document.body.createTextRange(); 
var TableName = prefixion+i; 
var Table = document.getElementById(TableName) 
sel.moveToElementText(Table); 
sel.select(); 
sel.execCommand("Copy"); 
oWD.Selection.Paste(); 
oWD.Selection.InsertBreak(); //Insert page break
} 
//oWD.ActiveDocument.ActiveWindow.View.Type=3 // Set browse mode  
oWD.Visible = true; 
}; 

function AutomateExcel(prefixion) 
{ 
var elTable = document.getElementById("AutomateExcel"); 
var oRangeRef = document.body.createTextRange(); 
oRangeRef.moveToElementText(elTable); 
oRangeRef.execCommand("Copy"); 
try{ 
var appExcel = new ActiveXObject( "Excel.Application" ); 
}catch(e) 
{ 
alert(" Can't call Office Object, make sure your machine is installed Office And the system has been added to the site name IE List of trusted sites! "); 
return; 
} 
appExcel.Visible = true; 
appExcel.Workbooks.Add().Worksheets.Item(1).Paste(); 
appExcel.Workbooks(1).Worksheets.Item(1).Columns("A:A").ColumnWidth = 100; 
//appExcel.Workbooks(1).Worksheets.Item(1).Columns("B:B").ColumnWidth = 21; 
appExcel = null 
}; 
</script> 
</head> 
<body> 
<input type="button" value=" Export to Word Automatic paging " onclick="AutomateWordAutoPaging('Table',5)" /> 
<input type="button" value=" Export to Excel The control column width " onclick="AutomateExcel('Table')"/> 

<div id="AutomateExcel"> 
<TABLE class=tabp id="Table0" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> 
<TR> 
<TD width="100%" align="center"> The title 0</TD> 
</TR> 
<TR> 
<TD align="center"> content 0</TD> 
</TR> 
</TABLE> 
<BR> 
<TABLE class=tabp id="Table1" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> 
<TR> 
<TD width="100%" align="center"> The title 1</TD> 
</TR> 
<TR> 
<TD align="center"> content 1</TD> 
</TR> 
</TABLE> 
<BR/> 
<TABLE class=tabp id="Table2" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> 
<TR> 
<TD width="100%" align="center"> The title 2</TD> 
</TR> 
<TR> 
<TD align="center"> content 2</TD> 
</TR> 
</TABLE> 
<BR/> 
<TABLE class=tabp id="Table3" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> 
<TR> 
<TD width="100%" align="center"> The title 3</TD> 
</TR> 
<TR> 
<TD align="center"> content 3</TD> 
</TR> 
</TABLE> 
<BR/> 
<TABLE class=tabp id="Table4" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> 
<TR> 
<TD width="100%" align="center"> The title 4</TD> 
</TR> 
<TR> 
<TD align="center"> content 4</TD> 
</TR> 
</TABLE> 
<BR/> 
</div> 

</body> 
</html> 

Related articles: