请教一个关于 Word 操作的常见问题。(15分)

利用Server组件中的 wordapplication 和 worddocument 组件，如何得知当前打开的WORD文档的总页数？以及如何得其中的某一页全部选中。
诚望各位仁兄不吝赐教。 只有15分了。不好意思。
谢谢。

分页转换：
procedure TForm1.Button1Click(Sender: TObject);
var
what,which,count,name : olevariant;
begin
what := wdGoToPage;
which := wdGoToNext;
count := 0;
name := '10';
Wordapplication.Selection.GoTo_(what,which,count,name);//转到第10页
Wordapplication.Selection.SelectCurrentIndent;//选择此页
Wordapplication.Selection.Copy;//复制

得到总页数不会。。。

rg := Wordapplication.Selection.GoTo_(what,which,count,name);

rg.start 每次都不同，如果出现一样的，那就是到头了

你可以通过这个来计算总页数

谢谢yanyandt2。
想不到这么快就可以得到你的回复了。真的谢谢你。
另外 ，在获得总页数时，有没有更简单一点的办法呢？有那位仁兄知道的吗？说出来大家分享一下，好吗？

各位，有计算总页数 的好方法吗？？？