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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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