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

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

[解决办法]

VB code

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