How to automatically place text after specified paragraphs

DougMVP · #2 09-12-2015, 07:59 PM

Is there an empty paragraph in the space between the e. paragraph and the following text?

Also, do you want the Red line as well as the text "Ans."

If there is an empty paragraph in the space, the following should do what you want:

Code:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
    Do While .Execute(FindText:="^p^p", MatchWildcards:=False, Forward:=True, Wrap:=wdFindStop) = True
        With Selection
            .Collapse wdCollapseEnd
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth450pt
                .Color = wdColorRed
            End With
            .InsertBefore "Ans." & vbCr
            .Collapse wdCollapseEnd
        End With
    Loop
End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Add Text To Place holder	phamh	PowerPoint	0	03-03-2015 08:11 AM
editing a number/text at one place and changes taking place wherever it appears	anurag.butoliya	Word	1	06-14-2014 06:27 PM
Help please: Automatically pulling info out of one document and place in others.	qwerty11	Word	2	06-25-2013 07:49 AM
Automatically generating paragraphs with form data	mkellar	Word	1	03-22-2013 10:10 PM
format cells to automatically place quotes around text	dirtleg	Excel	1	09-16-2008 01:52 PM