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

word文档的研究出来了

MyWord=CreateObject('Word.Application') 
MyWord.Visible=.T.
MyWord.Documents.Open ('e:\xin\笑话\爆笑答案.doc')


 aaa=MyWord.ActiveWindow.ActivePane.Pages.Count

?aaa

将档案转成 txt檔 ,用vfp 导入就行

又是一位高手，刚才试用了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

你的EXCEL文件是不是有分页或者是你的纸质设置问题？能否把你的EXCEL文件上传上来？！

SET talk off
SET SAFETY off
CLEAR
M_File=GETFILE('xls','学位申请数据')
IF M_File=" " 
   =MESSAGEBOX("请选择待导入的学位成绩汇总文件！",0+48,"提示")
   RETURN
ELSE 
   IF JUSTEXT(M_FILE)#"XLS"  &&获得文件扩展名  
      =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示")
      RETURN
   ENDIF
ENDIF 
myexcel=createobject('excel.application') &&创建一个对象
myexcel.visible=.t.&&可见
bookexcel=myexcel.workbooks.open(M_File) &&打开指定文件
aaa=myexcel.ActiveSheet.PageSetup.pages.count &&返回当前表的总页数
? aaa
RETURN

我运行此程序，显示的结果与原情况一致，你试下吧。8页

[ 本帖最后由 wangzhiyi 于 2015-1-6 10:13 编辑 ]

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