WORD排版

80酷酷网    80kuku.com

  word这是WORD排版的范例,大标题,二标题,接着左右分左右两边段落。
可以应用在在线排版系统,但是系统一定要是Windows + MSOffice。

 
<?
$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
;
?>


分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: