| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 646 人关注过本帖
标题:关于添加WORD文档页码的问题
取消只看楼主 加入收藏
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
结帖率:92.31%
收藏
已结贴  问题点数:20 回复次数:5 
关于添加WORD文档页码的问题
请教各位老师,我从网上找到一篇关于添加WORD文档页码的文章,我不知道如何添加到我的现有WORD文档中,麻烦老师指教。谢谢!代码如下:


local Doc
Doc=Createobject('word.application')&&从类定义或一个可以自动控制的应用程序中创建对象。

doc.Visible= .T.
WITH  doc
   .Documents.Add
   .Selection.InsertAfter(replicate(chr(13)+chr(10),1000))
   .ActiveDocument.PageSetup.TopMargin=2/0.0352 &&设置顶边距为2厘米
   .ActiveDocument.PageSetup.BottomMargin=2/0.0352 &&设置底边距为2厘米
   .ActiveDocument.PageSetup.LeftMargin=2/0.0352 &&设置左边距为2厘米
   .ActiveDocument.PageSetup.RightMargin=2/0.0352 &&设置右边距为2厘米   
   .ActiveWindow.ActivePane.View.SeekView=10
   .Selection.Sections(1).Headers(1).PageNumbers.Add(5,.t.)
   .Selection.Sections(1).Headers(1).Range.Text = "CAOLP"
   .Selection.TypeText("共")
   .Selection.Fields.Add(doc.Selection.Range, 26)
   .Selection.TypeText("页 / 第")
   .Selection.Fields.Add(doc.Selection.Range, -1,"Page \* MergeFormat",.f.)
   .Selection.TypeText("页")
   .Selection.ParagraphFormat.Alignment = 1  &&页脚居中
   .ActiveWindow.ActivePane.View.SeekView=0
ENDWITH
搜索更多相关主题的帖子: 应用程序 local 文章 如何 
2014-12-25 12:59
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
收藏
得分:0 
谢谢kiff老师的指点,按您的方法,问题解决了。
2014-12-25 15:41
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
收藏
得分:0 
谢谢kiff老师的指点,按您的方法,问题解决了。
另外,再请教老师一个问题,页码的字体该如何设置?谢谢老师!
2014-12-25 15:53
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
收藏
得分:0 
以下是引用caolp在2014-12-25 12:59:47的发言:

请教各位老师,我从网上找到一篇关于添加WORD文档页码的文章,我不知道如何添加到我的现有WORD文档中,麻烦老师指教。谢谢!代码如下:
 
 
local Doc
Doc=Createobject('word.application')&&从类定义或一个可以自动控制的应用程序中创建对象。
 
doc.Visible= .T.
WITH  doc
   .Documents.Add  
   .Selection.InsertAfter(replicate(chr(13)+chr(10),1000))  
   .ActiveDocument.PageSetup.TopMargin=2/0.0352 &&设置顶边距为2厘米
   .ActiveDocument.PageSetup.BottomMargin=2/0.0352 &&设置底边距为2厘米
   .ActiveDocument.PageSetup.LeftMargin=2/0.0352 &&设置左边距为2厘米
   .ActiveDocument.PageSetup.RightMargin=2/0.0352 &&设置右边距为2厘米   
   .ActiveWindow.ActivePane.View.SeekView=10
   .Selection.Sections(1).Headers(1).PageNumbers.Add(5,.t.)
   .Selection.Sections(1).Headers(1).Range.Text = "CAOLP"
   .Selection.TypeText("共")
   .Selection.Fields.Add(doc.Selection.Range, 26)
   .Selection.TypeText("页 / 第")
   .Selection.Fields.Add(doc.Selection.Range, -1,"Page \* MergeFormat",.f.)
   .Selection.TypeText("页")
   .Selection.ParagraphFormat.Alignment = 1  &&页脚居中
   .ActiveWindow.ActivePane.View.SeekView=0  
ENDWITH
请问老师,在上面何地方插入“页码”字体代码,“页码”字体代码如何写?谢谢老师指教!
2014-12-25 21:40
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
收藏
得分:0 
期待老师们赐教。
2014-12-26 10:32
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
收藏
得分:0 
谢谢wangzhiyi老师的赐教,按您的方法,问题解决了。谢谢!!!
2014-12-26 13:21
快速回复:关于添加WORD文档页码的问题
数据加载中...
 
   



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

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