Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="[")
            oRng.End = oRng.End + 1
            oRng.Text = LCase(oRng.Text)
            oRng.Collapse 0
        Loop
    End With
End Sub