请教各位老师，我从网上找到一篇关于添加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

  * .Documents.Add  &&不要这句
  *.Selection.InsertAfter(replicate(chr(13)+chr(10),1000))  &&不要这句
  .Documents.Open('D:\1\abc.doc') &&填你的WORD文件
名

谢谢kiff老师的指点，按您的方法，问题解决了。

谢谢kiff老师的指点，按您的方法，问题解决了。
另外，再请教老师一个问题，页码的字体该如何设置？谢谢老师！

请问老师，在上面何地方插入“页码”字体代码，“页码”字体代码如何写？谢谢老师指教！

期待老师们赐教。

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 编辑 ]

谢谢wangzhiyi老师的赐教，按您的方法，问题解决了。谢谢！！！