macro to delete line break

gmayor · #5 05-28-2015, 05:02 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't delete page break	John Holstein	Word	5	04-01-2015 09:00 AM
Line break between en dash and number	90-degree	Word	1	01-14-2015 01:09 PM
How can I remove line break from 4 dash's	nmss18	Word	2	09-11-2014 06:07 AM
delete page break	seeker62	Word	3	07-22-2013 06:49 PM
Delete Page Break using VBA	wordpunk	Word VBA	1	07-03-2012 03:05 PM