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