Word VisualBasic Script

Sub numStyle()
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
        .PageNumbers.NumberStyle = wdPageNumberStyleLowercaseLetter
End Sub