With ActiveDocument.Footnotes .StartingNumber = 4 .NumberStyle = wpsNoteNumberStyleLowercaseLetter End With