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

大侠们，帮忙提供一个在WORD页脚设置页码的VBA代码
本人实在没有办法，网上此类文章太少了。页码形式无所谓。当然，页码随着页数的增加而变动。先谢谢了。
[解决办法]

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