The macro acts on the selected text, so only select the problematic lines. In the case of your example, select only
De Jean, J., Upitis, R., Koch, C., & Young, J. (1999). The story of Phoenix Quest: How girls respond to a
prototype language and mathematics computer game. Gender and Education, 11(2).
and then run the macro or to do what you asked
Code:
Sub RemoveParaOrLineBreaks()
Dim oRng As Range
Dim oFind As Range
Set oRng = Selection.Range
Set oFind = Selection.Range
With oFind.Find
.Replacement.Text = "\1"
Do While .Execute(FindText:="[^13^l]{1,}([a-z])", _
MatchWildcards:=True, _
Replace:=wdReplaceAll)
Loop
End With
lbl_Exit:
Set oRng = Nothing
Set oFind = Nothing
Exit Sub
End Sub