/** php生成word文件 link:bbs.it-home.org*/$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(" 席慕容 像一颗随风吹送的种子 我想 我或许是迷了路了 这个世界 绝不是 那当初曾经允诺给我的蓝图 可是 已经有我的泪水 寻找原来的自己而走出人群 洒在山径上了 已经有 我暗夜里的梦想在森林中滋长 我的渴望和我的爱 像花朵般绽放过又隐没了 而在水边清香的荫影里 还留着我无邪的心 留着我所有的 迟疑惶恐 却无法再更改的 脚印 汲江煎茶 苏轼 活火仍仍活水烹 自临钓石汲深清 大瓢贮月归春瓮 小杓分江入夜瓶 雪乳已翻煎处脚 松风忽做泻时声 枯肠未易禁三碗 卧树荒城长短更 两瓯茶 白居易 食罢一觉醒 起来两瓯茶 举头看日影 已复西南斜 乐人惜日促 忧人厌年馀 无忧无乐者 长短任生涯 山泉煎茶有怀 白居易 坐酌泠泠水 看煎瑟瑟尘 无由持一碗 寄与爱茶人 一字至七字诗 茶 元稹 茶 香叶 嫩芽 慕诗客 爱僧家 碾雕白玉 罗织红纱 铫煎黄蕊色 碗转曲尘花 夜後邀陪明月 晨前命对朝霞 洗尽古今人不倦 将知醉後岂堪夸 "); $word->DefaultSaveFormat=""; ## 存档模式,预设DOC $word->Documents[1]->SaveAs("c:\word.doc"); $word->Quit(); $word->Release(); $word = null; ?> 复制代码