复制代码 代码如下:

<?

//建立一个指向新COM组件的索引

$word=newCOM(”word.application”)ordie(”Can'tstartWord!”);

//显示目前正在使用的Word的版本号

//echo“LoadingWord,v.{$word->Version}<br>”;

//把它的可见性设置为0（假），如果要使它在最前端打开，使用1（真）

//toopentheapplicationintheforefront,use1(true)

//$word->Visible=0;

//打?一个文档

$word->Documents->OPen(”d:mywebmuban.doc”);

//读取文档内容

$test=$word->ActiveDocument->content->Text;

echo$test;

echo“<br>”;

//将文档中需要换的变量更换一下

$test=str_replace(”<{变量}>”,”这是变量”,$test);

echo$test;

$word->Documents->Add();

//在新文档中添加文字

$word->Selection->TypeText(”$test”);

//把文档保存在目录中

$word->Documents[1]->SaveAs(”d:/myweb/comtest.doc”);

//关闭与COM组件之间的连接

$word->Quit();

?>