在VFP中怎样才能写字符到Word页眉中呢？请大家帮帮忙！！！！！！！！！！！！！

[liujxing263]

在VFP中怎样才能写字符到Word页眉中呢？请大家帮帮忙！！！！！！！！！！！！！

[xiolig]

在VBA中，可以通过以下代码设置当前文档第一节页眉：
ActiveDocument.Sections(1).Headers(1).Range.Text = "Header text"
同理，完全可以在VFP中对其创建的WORD文档设置页眉或页脚。

[liujxing263]

那么怎样通过VFP写页码到word页眉中。

[whint]

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，则文档中的第一页的页眉和页脚与后面各页的页眉和页脚都不相同

[xiolig]

http://expert.csdn.net/Expert/topic/1815/1815113.xml?temp=3.899783E-02