Sub Macro1()
Dim oRng As Range
Dim oColl As Collection
Dim i As Integer
    Set oColl = New Collection
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(findText:="\[*,*\]", MatchWildcards:=True)
            oColl.Add oRng.Text
        Loop
    End With
    For i = 1 To oColl.Count
        ActiveDocument.Range.InsertAfter vbCr & oColl(i)
        DoEvents
    Next i
lbl_Exit:
    Set oRng = Nothing
    Set oColl = Nothing
    Exit Sub
End Sub