用Word绘制表格

word

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

php
$word = new COM("word.application") or die("无法启动 Word 程序！");

$word->Visible = 1;
$doc = $word->Documents->Add();

$doc->Sections->Add($word->Selection->Range,0);// 增加一个分节
$Section = $doc->Sections(1); // 获取第一小节对象
$Range = $Section->Range; // 产生 Range 对象
$Table = $doc->Tables->Add($Range ,5, 10); // 产生 5x10的表格

// 将数据塞入表格
for ($i=1; $i10; $i++) {
for ($j=1; $j5; $j++) {
$Cell = $Table->Cell($j, $i);
$CellRange = $Cell->Range;
$CellRange->InsertBefore(chr(0x40+$j).chr(0x40+$i));
}
}

$word->Documents[1]->SaveAs("c:\\word.doc");
$word->Quit();
$word->Release();
$word = null;
?>