Microsoft Word - infinite macro loop if ".text = " is added

I want to change the first character after each bullet to lowercase. Don't understand why it loops infinitely
after the clause to update the paragraph ("myParagraph.Range.Text = ") is included. There is no infinite loop if the clause is commented out.

Dim myParagraph As Paragraph

If Len(Selection) = 1 Then Selection.WholeStory
For Each myParagraph In Selection.Paragraphs
    
    If (myParagraph.Range.ListFormat.ListType <> WdListType.wdListNoNumbering) Then
      bullet_txt = myParagraph.Range.Text
      new_text = LCase(Left(bullet_txt, 1)) & Mid(bullet_txt, 2)
      myParagraph.Range.Text = new_text
    End If

Next myParagraph

I am unsure about the vba code that you posted. However, once you have the selection (the first letters), you could just apply the Range.Case = wdLowerCase. 

Selection.Range.Case = wdLowerCase

Hope this helps.

Thanks a lot.

I take your advice and solve the problem as follows (even though I don't know why my original codes could cause an infinite loop).


Dim sel_range As Range
Dim myParagraph As Paragraph

If Len(Selection) = 1 Then Selection.WholeStory
Set sel_range = Selection.Range
    
For Each myParagraph In sel_range.Paragraphs
    
    If (myParagraph.Range.ListFormat.ListType <> WdListType.wdListNoNumbering) Then
      myParagraph.Range.Characters(1).Select
        Selection.Range.Case = wdLowerCase
    End If

Next myParagraph