来源：http://bbs.bccn.net/thread-440412-2-1.html

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