Changing Default Numbering Sequence in Word 2016

Here's the code for a macro that will assign such numbering to a range of paragraphs that are selected with a tab space following the number

Dim rng As Range

Dim lng1 As Long, lng2 As Long, lng3 As Long

Dim i As Long

Set rng = Selection.Range

For i = 1 To rng.Paragraphs.Count

    If i Mod 26 = 0 Then

        lng1 = 26

        lng2 = i / 26 - 1

    Else

        lng1 = i Mod 26

        lng2 = Int(i / 26)

    End If

    If i Mod 26 = 0 Then

        lng3 = 26

    Else

        lng3 = i Mod 26

    End If

    If lng2 = 0 Then

        rng.Paragraphs(i).Range.InsertBefore Chr(64 + i) & vbTab

    Else

        rng.Paragraphs(i).Range.InsertBefore Chr(64 + lng2) & Chr(64 + lng3) & vbTab

    End If

Next i

If you send me an email, I will send you a document with the field codes set up in it, so that you can copy and paste them where you want to use them.   NOTE that is is important that you only update each field code once and after completing the numbering, each field code construction should be locked.

Depending upon where the "numbering" is to be applied, it might be better to use a macro to apply it.

Hi Doug, 

I did see this in my online search for a solution before posting the question here. Is there a "For Dummies" version for how to use it in Word 2016?

See the following page of Cindy Meister's website:

http://homepage.swissonline.ch/cindymeister/MiscFram.htm