<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 Transitional//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" /> <br>< title>なし Title document</title> <br><script language="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.SellingErrors = false; oDC.Range(0,1); <br><br>for (i=0;i<count>{ <br>var sel = document.body.createTextRange(); = プレフィックス i; <br>var Table = document.getElementById(TableName) <br>sel.select(); <br>sel.execCommand("Copy"); oWD.Selection.Paste(); <br>oWD.Selection.InsertBreak(); //改ページを挿入<br>} <br>//oWD.ActiveDocument.ActiveWindow.View.Type=3 //ブラウズモードを設定します🎜> oWD.Visible = true; <br><br>関数 AutomateExcel(prefixion) <br>{ <br>var elTable = document.getElementById("AutomateExcel"); .body .createTextRange(); <br>oRangeRef.moveToElementText(elTable); <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"> <br></TR> ;TR><br><td align="center">コンテンツ0<br><br><br><table> class=tabp id="Table1" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <br><TR> <br><TD width="100%" align= "center ">タイトル 1</TD> <br></TR> <br><TR> <br><TD align="center">コンテンツ 1</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"><br></TR> ;TD align="center">コンテンツ 2</TD><br></TABLE> <br><BR/> "表 3" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <br><TR> <br><TD width="100%" align="center "> ;/TD><br><br><tr> <br><TD align="center"><br></TR> ;/TABLE> <br><BR/> <br><TABLE class=tabp id="Table4" cellSpacing=0 cellPadding=2 width="100%" <BR>< ;TR> <br><TD width="100%" align="center"><br></TR> <br><TD 整列="センター">コンテンツ4<BR><BR></TABLE><BR><BR><🎜; ></body><br></html></tr> </table> </td></count> </div>