2,749
社区成员
发帖
与我相关
我的任务
分享在VFP中怎样才能写字符到Word页眉中呢？请大家帮帮忙！！！！！！！！！！！！！
在VFP中怎样才能写字符到Word页眉中呢？请大家帮帮忙！！！！！！！！！！！！！
...全文
请发表友善的回复…
发表回复
xiolig 2003-05-23
- 打赏
- 举报
http://expert.csdn.net/Expert/topic/1815/1815113.xml?temp=3.899783E-02
whint 2003-05-22
- 打赏
- 举报
my=createobject('word.application')
my.documents.add
my.Selection.Sections(1).Headers(1).PageNumbers.Add(5,.t.)
my.visible=.t.
解释：
加页眉的方法：
expression.Add(PageNumberAlignment, FirstPage)
PageNumberAlignment Variant 类型，可选。可以是下列 WdPageNumberAlignment 常量之一：
wdAlignPageNumberCenter 1
wdAlignPageNumberInside 2
wdAlignPageNumberLeft 3
wdAlignPageNumberOutside 4
wdAlignPageNumberRight 5
FirstPage Variant 类型，可选。如果为 False，则文档中的第一页的页眉和页脚与后面各页的页眉和页脚都不相同
my.documents.add
my.Selection.Sections(1).Headers(1).PageNumbers.Add(5,.t.)
my.visible=.t.
解释：
加页眉的方法：
expression.Add(PageNumberAlignment, FirstPage)
PageNumberAlignment Variant 类型，可选。可以是下列 WdPageNumberAlignment 常量之一：
wdAlignPageNumberCenter 1
wdAlignPageNumberInside 2
wdAlignPageNumberLeft 3
wdAlignPageNumberOutside 4
wdAlignPageNumberRight 5
FirstPage Variant 类型，可选。如果为 False，则文档中的第一页的页眉和页脚与后面各页的页眉和页脚都不相同
liujxing263 2003-05-22
- 打赏
- 举报
那么怎样通过VFP写页码到word页眉中。
xiolig 2003-05-21
- 打赏
- 举报
在VBA中，可以通过以下代码设置当前文档第一节页眉：
ActiveDocument.Sections(1).Headers(1).Range.Text = "Header text"
同理，完全可以在VFP中对其创建的WORD文档设置页眉或页脚。
ActiveDocument.Sections(1).Headers(1).Range.Text = "Header text"
同理，完全可以在VFP中对其创建的WORD文档设置页眉或页脚。
