Sub LowercaseBulletParaStart()

Dim para As Paragraph

For Each para In Selection.Paragraphs
    para.Range.words(1).Case = wdLowerCase
Next para

End Sub