大侠们，帮忙提供一个在WORD页脚设置页码的VBA代码

[ygxshanghai]

本人实在没有办法，网上此类文章太少了。页码形式无所谓。当然，页码随着页数的增加而变动。先谢谢了。

[贝隆]

Sub Macro1()
'
' Macro1 Macro
' 宏在 2012-6-19 由 微软用户 录制
'
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberRight, FirstPage:=True
    ShowVisualBasicEditor = True
End Sub

[ygxshanghai]

Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
可为什么在页眉上有一条线？

[赵4老师]

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[ygxshanghai]

我的程序是在VB中打开或新建WORD，并对WORD的页脚添加页码，VBA不熟，没有办法，请求帮助。