哪位大侠告诉我，在VFP中调用word，哪个函数可以获得文档的页数？

MyWord=CreateObject('Word.Application')
MyWord.Visible=.T.
MyWord.Documents.Open ('e:\xin\笑话\爆笑答案.doc')
aaa=MyWord.ActiveWindow.ActivePane.Pages.Count
?aaa

谢谢！是我提到问题不恰当，这样描述我的问题可能更清楚些:
在word的“文档部件”中有一个“域”NUMPAGES，在设置“共X页”时，可以引用它，自动显示文档的总页数，我想在VFP调用的word中完成这样的设置，并且，需要减去2（去除封面和目录），我找了很久，也没有办法！！！

&&怎么样在word的页眉或者页脚上写上"共几页/第几页"
Doc=Createobject('word.application')
doc.Visible= .T.
doc.Documents.add
doc.ActiveWindow.ActivePane.View.SeekView=10
doc.Selection.TypeText("第")
pagex= "Page \* MergeFormat"
doc.Selection.Fields.Add(doc.Selection.Range, -1,pagex,.f.)
doc.Selection.TypeText("页")
doc.ActiveWindow.ActivePane.View.SeekView=0

麻烦追问一下，如何将这个页数减去2呢，万分感谢！

pagex= "Page-2 \* MergeFormat"
 doc.Selection.Fields.Add(doc.Selection.Range, -1,pagex,.f.)

这样做不行啊！

pagex= "Page \* MergeFormat" 是字符型

&&取得已打开文档的页数，不能随文档编辑而变化
wdActiveEndPageNumber = 3 &&当前页码 (word默认首页为0)
wdNumberOfPagesInDocument = 4 &&总页码
MESSAGEBOX( "第"+STR(doc.Documents(1).Range.Information(wdActiveEndPageNumber))+" 页  共 " +STR(doc.Documents(1).Range.Information(wdNumberOfPagesInDocument))+" 页 ")