如何用DELPHI得到WORD文档的页数并选定特定页(100分)

我用DELPHI编写了一个程序，调用WORD文档并分页拷贝到剪贴板，用OLE自动化
CREATEOLEOBJECT（'WORD.APPLICATION')打开WORD，用wordbasic的fileopen打开
文件，不知如何知道所打开文件的页数，如何选定某一页的内容；

这是VB代码，转成Delphi即可：
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="7"//第7页
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.MoveDown Unit:=wdLine, Count:=29, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

接受答案了.