标题:关于添加WORD文档页码的问题
只看楼主
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
结帖率:92.31%
已结贴  问题点数:20 回复次数:7 
关于添加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
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
得分:10 
  * .Documents.Add  &&不要这句
  *.Selection.InsertAfter(replicate(chr(13)+chr(10),1000))  &&不要这句
  .Documents.Open('D:\1\abc.doc') &&填你的WORD文件

2014-12-25 13:58
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
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
得分:10 
Doc=Createobject('word.application')&&从类定义或一个可以自动控制的应用程序中创建对象。
doc.Visible= .T.
M_File=GETFILE('doc*','WORD文档')
IF M_File=" "  
   =MESSAGEBOX("请选择需要添加页码的文档!",0+48,"提示")
   RETURN
ELSE  
   IF JUSTEXT(M_FILE)#"DOC"  &&获得文件扩展名   
      =MESSAGEBOX("您选择的不是WORD文档!",0+48,"提示")
      RETURN
   ENDIF
ENDIF  
WITH  doc
   .Documents.Open('&M_FILE.')
   *.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.Font.Size = 20  &&指定字号,9为小五号,10.5为五号,12为小四号
   .Selection.Font.Name = "宋体"  &&设置字体
   .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
在你的程序基础上稍作了些修改,可以弹出打开文件对话框,任意选择文档打开。增加了设置字体和字号的语句。

[ 本帖最后由 wangzhiyi 于 2014-12-26 12:49 编辑 ]
2014-12-26 11:15
caolp
Rank: 1
等 级:新手上路
帖 子:160
专家分:5
注 册:2014-7-12
得分:0 
谢谢wangzhiyi老师的赐教,按您的方法,问题解决了。谢谢!!!
2014-12-26 13:21



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-440348-1-1.html




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

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