Sub SelectNumberingAndChangeFont()
    Dim para As Paragraph
    Dim list As list
    Dim lvl As ListLevel
    Dim lev As ListTemplate
    Dim i As Integer
    Dim ib As Integer
    i = 0
    ib = 0
    For Each lev In ActiveDocument.ListTemplates
        For Each lvl In lev.ListLevels
            Debug.Print "TXT POS - " & lvl.TextPosition
            If lvl.TextPosition <> 147.4 Then
                 lvl.Font.Name = "Times New Roman"
                ' Change numbering of list to Times New Roman at the exception of third-level numbering
            End If
            Next lvl
    Next lev
End Sub