怎么得到ole容器里word的页数？急急急！！！

Question

怎么得到ole容器里word的页数？
还有就是怎么获得当前页的word文档
下面这段代码，能得到页数pagemum，但第二次打开时就出错，说是RPC错误，能帮忙看一下吗？
var
  prange,crange:range;
  pagemum:integer;
begin
  pagemum:=0;  
  crange:=WordApplication1.ActiveDocument.Content;
  prange:=WordApplication1.ActiveDocument.Content;
  prange.Start:=prange.Start+1;   
  while(prange.Start<> crange.Start) do
  begin
    prange:=crange;
    crange:=WordApplication1.Selection.GoToNext(wdGoToPage);
    pagemum:=pagemum+1;
  end;
  result:=pagemum;// result是结果

Answer 1

为什么第二次打开时，就会说是RPC错误呢？
我觉得是WordApplication1没有释放掉，再取ActiveDocument时就出错了，则么释放呢？
WordApplication1.Free;好像也不对哦！大家帮忙看一下

Answer 2

WordApplication1.quit;WordApplication1:=unassigned

Answer 3

darkliu(钢铁工人甲) 
WordApplication1.quit;    这个执行时不通过啊
WordApplication1:=unassigned    编译时不通过啊
有没有更好的办法啊？拜托了！