| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2246 人关注过本帖
标题:VFP调用word,获得文档页数的函数是哪一个?
只看楼主 加入收藏
大树临风
Rank: 2
等 级:论坛游民
帖 子:131
专家分:14
注 册:2015-12-9
结帖率:80%
收藏
已结贴  问题点数:18 回复次数:7 
VFP调用word,获得文档页数的函数是哪一个?
哪位大侠告诉我,在VFP中调用word,哪个函数可以获得文档的页数?
搜索更多相关主题的帖子: 调用 word 获得 文档 函数 
2018-01-08 21:42
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9781
专家分:26837
注 册: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: 2
等 级:论坛游民
帖 子:131
专家分:14
注 册:2015-12-9
收藏
得分:0 
谢谢!是我提到问题不恰当,这样描述我的问题可能更清楚些:
在word的“文档部件”中有一个“域”NUMPAGES,在设置“共X页”时,可以引用它,自动显示文档的总页数,我想在VFP调用的word中完成这样的设置,并且,需要减去2(去除封面和目录),我找了很久,也没有办法!!!
2018-01-08 22:09
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:499
专家分:1216
注 册: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: 2
等 级:论坛游民
帖 子:131
专家分:14
注 册:2015-12-9
收藏
得分:0 
回复 4楼 星光悠蓝
麻烦追问一下,如何将这个页数减去2呢,万分感谢!
2018-01-08 22:41
大树临风
Rank: 2
等 级:论坛游民
帖 子:131
专家分:14
注 册: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: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:499
专家分:1216
注 册:2010-1-11
收藏
得分:0 
pagex= "Page \* MergeFormat" 是字符型
2018-01-09 08:26
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:499
专家分:1216
注 册: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
快速回复:VFP调用word,获得文档页数的函数是哪一个?
数据加载中...
 
   



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

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