loWord = Createobject("word.application") loWord.Documents.Open('c:\1.doc') ?loWord.ActiveDocument.ComputeStatistics(1) &&总行数

来源：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

来源：http://bbs.bccn.net/viewthread.php?tid=432056&extra=&highlight=word&page=3 oWord = CREATEOBJECT('Word.Application') && 建立 WORD 对象 oWord.Documents.Open('d:\file.doc') && 打开 d:\file.doc oWord.PrintOut(,,4,,,,,1,"1-3,5") &&...

lcFileName=GETPICT() IF !FILE(lcFileName) MESSAGEBOX("请选择图片文件") RETURN ENDIF ***请修改测试图片位置 oword=createobject("word.application") oword.Visible=.t. oword.Documents.add oword.Selection.InlineShapes.AddPicture("D:\My Documents\My Pictures\图1.JPG",.f.,.t.) ?"文档中的图片个数:"...