-
-
- /**
- 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;
- ?>
-
复制代码
|