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