<div class="codetitle"> <span><a style="CURSOR: pointer" data="24355" class="copybut" id="copybut24355" onclick="doCopy('code24355')"><u>코드 복사</u></a></span> 코드는 다음과 같습니다.</div> <div class="codebody" id="code24355"> <br><!DOCTYPE html PUBLIC "-//W3C/ /DTD XHTML 1.0 전환//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <br><html xmlns="http://www.w3 .org/ 1999/xhtml"> <br><head> <br><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <br>< title>없음 제목 문서</title> <br><script 언어="javascript"> <br>function AutomateWordAutoPaging(prefixion,Count) <br>{ <br>var oWD = new ActiveXObject("Word.Application" ); <br>var oDC = oWD.Documents.Add(); <br>oDC.ShowGrammaticalErrors = false; //문법 검사 비활성화<br>oDC.ShowSpellingErrors = false; oDC.Range(0,1); <br><br>for (i=0;i<count>{ <br>var sel = document.body.createTextRange() <br>var TableName = 접두사 i; <br>var Table = document.getElementById(TableName) <br>sel.moveToElementText(Table); <br>sel.select() <br>sel.execCommand("Copy"); oWD.Selection.Paste(); <br>oWD.Selection.InsertBreak(); //페이지 나누기 삽입<br>} <br>//oWD.ActiveDocument.ActiveWindow.View.Type=3 //탐색 모드 설정<br> oWD.Visible = true; <br>}; <br><br>function AutomateExcel(접두사) <br>{ <br>var elTable = document.getElementById("AutomateExcel") <br>var oRangeRef = document .body .createTextRange(); <br>oRangeRef.moveToElementText(elTable); <br>oRangeRef.execCommand("Copy") <br>try{ <br>var appExcel = new ActiveXObject( "Excel.Application" ); <br>}catch(e) <br>{ <br>alert("Office 개체를 호출할 수 없습니다. Office가 컴퓨터에 설치되어 있고 이 시스템의 사이트 이름이 IE의 신뢰할 수 있는 사이트 목록에 추가되었는지 확인하세요. ! "); <br>return; <br>} <br>appExcel.Visible = true; <br>appExcel.Workbooks.Add().Worksheets.Item(1).Paste(); <br>appExcel.Workbooks( 1).Worksheets.Item(1).Columns("A:A").ColumnWidth = 100; <br>//appExcel.Workbooks(1).Worksheets.Item(1).Columns("B:B") .ColumnWidth = 21; <br>appExcel = null <br>} <br></head> <br><input type="button" value="Word AutoPaging으로 내보내기" onclick="AutomateWordAutoPaging('Table',5)" /> <br><input type="button" value="Excel로 내보내 열 너비 제어" onclick="AutomateExcel( '테이블')"/> <br><br><div id="AutomateExcel"> <br><TABLE class=tabp id="Table0" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <br><TR> <br><TD width="100%" align="center">Title0</TD> <br></TR> ;TR> <br><TD align="center">Content0</TD> <br></TABLE> <br><br class="tabp" id="Table1" cellspacing="0" cellpadding="2" width="100%" align="center" border="1>"><TR> <br><TD width="100%" align= "center ">Title1</TD> <br></TR> <br><TR> <br><TD align="center">Content1</TD> <br>< /TR> <br></TABLE> <br><BR/> <br><TABLE class=tabp id="Table2" cellSpacing=0 cellPadding=2 width="100%" align=center border =1> 🎜><TR> <br><TD width="100%" align="center">제목 2</TD> <br></TR> ;TD align="center">Content2</TD> <br></TABLE> <br><TABLE class=tabp id= "표3" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <br><TR> <br><TD width="100%" align="center ">제목 3< ;/TD> <br></TR> <br><TD align="center">콘텐츠 3<br></TR> ;/TABLE> <br><BR/> <br><TABLE class=tabp id="Table4" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> ; ;TR> <br><TD width="100%" align="center">제목 4</TD> <br><TR> <br><TD ="center"</TD> <br></TABLE> <br></div> ></body> <br></html> <br><br></count> </div>