如何在程序中调用Word的Automation Server读取Word文档中的文字？(200分)

如题

template,newtemplatelevariant;
newtemplate:=false;
template:=emptyparam;

WordApplication1.Visible:=True;
WordApplication1.Documents.Add (template,newtemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item (itemindex) );
WordApplication1.Selection.Font.Set_Size(18) ;
WordApplication1.Selection.Font.Set_Bold(2);
WordApplication1.Selection.TypeText('附表(一)');

WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.ParagraphFormat.Set_Alignment(1);
WordApplication1.Selection.Font.Set_Size(12) ;
WordApplication1.Selection.Font.Set_Bold(0);
WordApplication1.Selection.Tables.Add(WordApplication1.Selection.Get_Range,row,16);

楼上的和我想问的有点差异，而且刚才我没有说清楚，抱歉，我是想用CreateOLEObject来做，
不是用delphi的COM server,需要的功能很简单，就是读取word里面的文字，不需要写入任何
东西，还请楼上的多帮忙

我是用Delphi的Server页里面的组件实现的。
只要打开Word文档，然后就可以按Pragrahp来读取Word的文字了。

Pcount := Mydoc.Paragraphs.Count;
Pstring := Mydoc.Paragraphs.Item(i).Range.Text;

谢谢，可以了，有一个不情之请，能否给个delphi操纵word的文档？（就是Word Server
的方法名之类的）

学习！
我也想知道Server页里面的各个组件的使用方法。不知道如何找到这些组件有那些
方法和属性

告诉大家一个简单的方法，就是一般你可以使用录制宏，得到你需要的功能的vb代码，这些
代码已经很清楚的写出了个各种操作，只不过是vb的，如果在vb中就简单了，copy就可以直接使用
，在delphi中就要翻译成delphi代码了。

多人接受答案了。