| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 493 人关注过本帖
标题:VFP调用word,获得文档页数的函数是哪一个?
只看楼主 加入收藏
大树临风
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2015-12-9
结帖率:71.43%
  已结贴   问题点数:18  回复次数:7   
VFP调用word,获得文档页数的函数是哪一个?
哪位大侠告诉我,在VFP中调用word,哪个函数可以获得文档的页数?
2018-01-08 21:42
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:167
帖 子:7295
专家分:17151
注 册:2012-2-5
  得分:9 
MyWord=CreateObject('Word.Application')
MyWord.Visible=.T.
MyWord.Documents.Open ('e:\xin\笑话\爆笑答案.doc')
aaa=MyWord.ActiveWindow.ActivePane.Pages.Count
?aaa

坚守VFP最后的阵地
2018-01-08 21:49
大树临风
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2015-12-9
  得分:0 
谢谢!是我提到问题不恰当,这样描述我的问题可能更清楚些:
在word的“文档部件”中有一个“域”NUMPAGES,在设置“共X页”时,可以引用它,自动显示文档的总页数,我想在VFP调用的word中完成这样的设置,并且,需要减去2(去除封面和目录),我找了很久,也没有办法!!!
2018-01-08 22:09
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:9 
&&怎么样在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
2018-01-08 22:27
大树临风
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2015-12-9
  得分:0 
回复 4楼 星光悠蓝
麻烦追问一下,如何将这个页数减去2呢,万分感谢!
2018-01-08 22:41
大树临风
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2015-12-9
  得分:0 
回复 5楼 大树临风
pagex= "Page-2 \* MergeFormat"
 doc.Selection.Fields.Add(doc.Selection.Range, -1,pagex,.f.)

这样做不行啊!
2018-01-09 00:37
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:0 
pagex= "Page \* MergeFormat" 是字符型
2018-01-09 08:26
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:0 
&&取得已打开文档的页数,不能随文档编辑而变化
wdActiveEndPageNumber = 3 &&当前页码 (word默认首页为0)
wdNumberOfPagesInDocument = 4 &&总页码
MESSAGEBOX( "第"+STR(doc.Documents(1).Range.Information(wdActiveEndPageNumber))+" 页  共 " +STR(doc.Documents(1).Range.Information(wdNumberOfPagesInDocument))+" 页 ")
2018-01-09 14:39







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023554 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved