Type = 1 is an enumeration of predefined PP constants. 1 = ppBulletUnnumbered or msoBulletUnnumbered

F2 in the editor brings up the object brower
Capture.JPG


Intellisense works better for things I don't use very often

Capture2.JPG

Sub fixTR2(otxr2 As TextRange2)
    With otxr2.ParagraphFormat.Bullet
        If .Visible Then
           If .Type = msoBulletUnnumbered Then
                .Font.Name = "Wingdings"
                .Character = 167
                .UseTextColor = False
                .Font.Fill.ForeColor.RGB = RGB(95, 151, 250)
           End If
        End If
     End With
End Sub
Personally, since I can't remember the actual value for such things, I try to the the VBA constants for such things, but either way is fine