各位老师，本人在设计一个《档案资料管理系统》时遇到一个问题无法处理，麻烦老师帮个忙。
    该系统有一个“归档文件信息表”（专门用来储存“文档编号”、“文档名称”、“建档日期”和“文档页数”的，表中的文件名包含所有文档类型，如：doc、xls或pdf等类型的文档）；有一个“归档文件目录”报表（在该报表中有“文档编号”、“文档名称”、“建档日期”、“文档页数”四个字段变量），在该报表中“文档编号”、“文档名称”、“建档日期”比较好处理，唯独“文档页数”，不知怎样从doc、xls或pdf等文档页数传递到该字段中来，敬请各位老师指教，谢谢！

网上找不到这方面的资料，再说我对VBA一窍不通。我提到的问题很难吗？VFP不能解决吗，非要VBA吗？哪位老师能帮我，谢谢！

通过这几天在本论坛和其它论坛的探索求助，未发现有超越上述两位老师的技术水平，的确证实以上两位老师所言极是。求助的问题，高手解决不了，更没有人能解决，看来并非是VFP所能解决的。在此，特向两位老师道一声：“对不起！”

谢谢老师，我在找找。

感谢wzxc老师热心帮助！学生心领了。

又是一位高手，刚才试用了wzxc老师的代码，果真成功了，非常感谢wzxc老师鼎力帮助！

wzxc老师您好，引用您的代码，我在统计Word文档页码时已获得成功，但在统计Excel文档页数时，使用下面的代码提示错误，不知为什么？麻烦老师指点一下。谢谢！
MyExcel=Createobject('Excel.application')
MyExcel.Visible= .T.
MyExcel.Documents.Open ('E:\考试名称.xls')
aaa=MyExcel.ActiveSheet.PageSetup.pages.count
?aaa

我把第三行的语句进行了修改，运行后显示的“721”。实际“考试名册.xls”表，只有6页，这721是什么数？哪位老师能给予解释，谢谢！

修改后的代码如下：
myexcel=createobject('excel.application')&&创建一个对象
myexcel.visible=.t.&&可见
myexcel.Application.WorkBooks.Open ('E:\考试名册.xls')&&修改后的语句
aaa=myexcel.ActiveSheet.PageSetup.pages.count
?aaa

非常感谢wangzhiyi老师帮助，问题解决了。