Sub Page_Numbering()
Dim cbt As VGCore.CommandBarControl
Set cbt = CommandBars("Document Desktop").Controls.AddCustomButton("2cc24a3e-fe24-4708-9a74-9c75406eebcd", "Globalmacros.CorelMacros.PageNumbering")
cbt.Caption = "Page Numbering"
End Sub