用Word绘制表格

word

一大早就收到读者的问题..所以就顺便收录在这边。
这个范例是透过COM利用Word 绘置一个5X10的表格，并将一些数据一一塞入各个区域内。

<code><font color="#000000"><font color="#0000bb"></font><font face="新宋体" color="#007700"></font><font face="新宋体"><font color="#0000bb">php<br>$word </font><font color="#007700">= new </font><font color="#0000bb">COM</font><font color="#007700">(</font><font color="#dd0000">"word.application"</font><font color="#007700">) or die(</font><font color="#dd0000">"无法启动 Word 程序！"</font></font><font face="新宋体"><font color="#007700">);<br><br></font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Visible </font><font color="#007700">= </font><font color="#0000bb">1</font></font><font face="新宋体"><font color="#007700">;<br></font><font color="#0000bb">$doc </font><font color="#007700">= </font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Documents</font><font color="#007700">-></font><font color="#0000bb">Add</font></font><font face="新宋体"><font color="#007700">();<br><br></font><font color="#0000bb">$doc</font><font color="#007700">-></font><font color="#0000bb">Sections</font><font color="#007700">-></font><font color="#0000bb">Add</font><font color="#007700">(</font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Selection</font><font color="#007700">-></font><font color="#0000bb">Range</font><font color="#007700">,</font><font color="#0000bb">0</font><font color="#007700">);</font></font><font face="新宋体"><font color="#ff8000">// 增加一个分节<br></font><font color="#0000bb">$Section </font><font color="#007700">= </font><font color="#0000bb">$doc</font><font color="#007700">-></font><font color="#0000bb">Sections</font><font color="#007700">(</font><font color="#0000bb">1</font><font color="#007700">); </font></font><font face="新宋体"><font color="#ff8000">// 获取第一小节对象<br></font><font color="#0000bb">$Range   </font><font color="#007700">= </font><font color="#0000bb">$Section</font><font color="#007700">-></font><font color="#0000bb">Range</font><font color="#007700">;   </font></font><font face="新宋体"><font color="#ff8000">// 产生 Range 对象<br></font><font color="#0000bb">$Table   </font><font color="#007700">= </font><font color="#0000bb">$doc</font><font color="#007700">-></font><font color="#0000bb">Tables</font><font color="#007700">-></font><font color="#0000bb">Add</font><font color="#007700">(</font><font color="#0000bb">$Range </font><font color="#007700">,</font><font color="#0000bb">5</font><font color="#007700">, </font><font color="#0000bb">10</font><font color="#007700">); </font></font><font face="新宋体"><font color="#ff8000">// 产生 5x10的表格<br><br>// 将数据塞入表格<br></font><font color="#007700">for (</font><font color="#0000bb">$i</font><font color="#007700">=</font><font color="#0000bb">1</font><font color="#007700">; </font><font color="#0000bb">$i</font><font color="#007700"><font color="#0000bb">10</font><font color="#007700">; </font><font color="#0000bb">$i</font></font><font face="新宋体"><font color="#007700">++) {<br>    for (</font><font color="#0000bb">$j</font><font color="#007700">=</font><font color="#0000bb">1</font><font color="#007700">; </font><font color="#0000bb">$j</font><font color="#007700"><font color="#0000bb">5</font><font color="#007700">; </font><font color="#0000bb">$j</font></font><font face="新宋体"><font color="#007700">++) {<br>        </font><font color="#0000bb">$Cell      </font><font color="#007700">= </font><font color="#0000bb">$Table</font><font color="#007700">-></font><font color="#0000bb">Cell</font><font color="#007700">(</font><font color="#0000bb">$j</font><font color="#007700">, </font><font color="#0000bb">$i</font></font><font face="新宋体"><font color="#007700">);<br>        </font><font color="#0000bb">$CellRange </font><font color="#007700">= </font><font color="#0000bb">$Cell</font><font color="#007700">-></font><font color="#0000bb">Range</font></font><font face="新宋体"><font color="#007700">;<br>        </font><font color="#0000bb">$CellRange</font><font color="#007700">-></font><font color="#0000bb">InsertBefore</font><font color="#007700">(</font><font color="#0000bb">chr</font><font color="#007700">(</font><font color="#0000bb">0x40</font><font color="#007700">+</font><font color="#0000bb">$j</font><font color="#007700">).</font><font color="#0000bb">chr</font><font color="#007700">(</font><font color="#0000bb">0x40</font><font color="#007700">+</font><font color="#0000bb">$i</font></font><font face="新宋体"><font color="#007700">));<br>    }<br>}<br><br></font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Documents</font><font color="#007700">[</font><font color="#0000bb">1</font><font color="#007700">]-></font><font color="#0000bb">SaveAs</font><font color="#007700">(</font><font color="#dd0000">"c:\\word.doc"</font></font><font face="新宋体"><font color="#007700">);<br></font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Quit</font></font><font face="新宋体"><font color="#007700">();<br></font><font color="#0000bb">$word</font><font color="#007700">-></font><font color="#0000bb">Release</font></font><font face="新宋体"><font color="#007700">();<br></font><font color="#0000bb">$word </font><font color="#007700">= </font><font color="#0000bb">null</font></font><font face="新宋体"><font color="#007700">;<br></font><font color="#0000bb">?></font></font></font></font></font>