php寫入WORD的範例

房東：星星
發表時間：2006-12-26

WORD排版

這是WORD排版的範例，大標題，二標題，接著左右分左右兩邊段落。
可以應用在線上排版系統，但是系統一定要是Windows + MSOffice。

[Copy to clipboard]CODE:
$word = new COM("word.application") or die("無法啟動 Word 程式！");

$word->Visible = 0;

$n=$word->Documents->Add();

## 分節符號
$n->Sections->Add($word->Selection->Range,0);

## Sections(1)第一小節
$s1=$n->Sections(1);
$s1->PageSetup->BottomMargin=10;

## Paragraphs(1) 第一段落
$s1->Range->InsertBefore("企鵝帝國元年-詩詞多首排版測試");
$s1->Range->InsertParagraphAfter;
$s1->Range->InsertBefore("大標題-詩詞歌賦n");

$Para=$n->Paragraphs(1);
$Para->Alignment=1;
$font_style=$Para->Range;
$font_style->Font->size =14;
$font_style->Font->Name="標楷體";

$Para=$n->Paragraphs(2);
$Para->Alignment=2;
$font_style=$Para->Range;
$font_style->Font->size =10;
$font_style->Font->Name="新細明體";

$p=$n->Sections(2);
$obj=$p->PageSetup;
$Col=$obj->TextColumns;
$Col->SetCount(2);

$p->Range->InsertAfter("
席慕容

像一顆隨風吹送的種子
我想　我或閉O迷了路了
這個世界　絕不是
那當初曾經允諾給我的藍圖

可是　已經有我的略?br /> 尋找原來的自己而走出人群
灑在山徑上了　已經有
我暗夜裡的夢想在森林中滋長
我的渴望和我的愛
像花朵般綻放過又隱沒了

而在水邊清香的蔭影裡
還留著我無邪的心

留著我所有的
遲疑惶恐　卻無法再更改的
腳印

汲江煎茶蘇軾

活火仍仍活水烹
自臨釣石汲深清
大瓢貯月歸春甕
小杓分江入夜瓶
雪乳已翻煎處腳
松風忽做瀉時聲
爰z未易禁三碗
臥樹荒城長短更

兩甌茶白居易

食罷一覺醒
起來兩甌茶
舉頭看日影
已復西南斜
樂人惜日促
憂人厭年餘
無憂無樂者
長短任生涯

山泉煎茶有懷白居易

坐酌泠泠水
看煎瑟瑟塵
無由持一碗
寄與愛茶人

一字至七字詩　茶元稹

茶
香葉　嫩芽
慕詩客　愛僧家
碾雕白玉　羅織紅紗
銚煎黃蕊色　碗轉曲塵花
夜後邀陪明月　晨前命對朝霞
洗盡古今人不倦　將知醉後豈堪誇

");

$word->DefaultSaveFormat=""; ## 存檔模式,預設DOC
$word->Documents$1]->SaveAs("c:\word.doc");
$word->Quit();
$word->Release();
$word = null;
?>

贊助網站

廣利不動產-板橋在地生根最實在--新板特區指名度最高、值得您信賴的好房仲
完整房訊，房屋、店面熱門精選物件，廣利不動產優質仲介，房屋租賃、買賣資訊透明，交易真安心！
廣利不動產-新板特區指名度最高、值得您信賴的好房仲
您的托付,廣利用心為您服務

1 樓住戶：星星
發表時間：2006-12-26

這個範例是透過COM利用Word 繪置一個5X10的表格，並將一些資料一一塞入各個欄位內。

$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; $i<=10; $i++) {
for ($j=1; $j<=5; $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;
?>

　共 1 人回應　　選擇頁數【第1 頁】

姓名：

佈告內容：

其他選項: