Putting 3 verses of scripture into a Word doc

oldyeller1938 · #1 05-14-2018, 03:13 AM

I have a project ongoing putting 3 verses of scripture into a Word doc. This is an example of what I would like to do: I want a space between GENESIS 44 followed by 3 verses. Can that be done with the Ctrl+H dialog? Can it be done with the entire chapter in 1 step rather than 3 verses at a time?

GENESIS 44
22 And we said to my lord, 'The lad cannot leave his father, for if he should leave his father, his father would die.' 23 But you said to your servants, 'Unless your youngest brother comes down with you, you shall see my face no more.'24 "So it was, when we went up to your servant my father, that we told him the words of my lord.

GENESIS 44
25 And our father said, 'Go back and buy us a little food.' 26 But we said, 'We cannot go down; if our youngest brother is with us, then we will go down; for we may not see the man's face unless our youngest brother is with us.' 27 Then your servant my father said to us, 'You know that my wife bore me two sons;

gmayor · #2 05-14-2018, 03:35 AM

Based on your example, a simple macro should do the job

Code:

Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="[0-9]{1,}", MatchWildcards:=True)
            If Not oRng.Start = oRng.Paragraphs(1).Range.Start And _
               Not oRng.End = oRng.Paragraphs(1).Range.End - 1 Then
                oRng.InsertParagraphBefore
                oRng.Collapse 0
            End If
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding Bible Verses in Header + Page Number	JohnAnthonyWolf	Word	7	11-04-2022 06:22 AM
Scripture Index	WJSwan	Word VBA	5	03-31-2018 02:35 AM
Putting writing next to an image on Word for CV HELP :(!	ParisP	Word	3	05-29-2015 09:53 AM
Help with putting footers into all but the first section in Word 2010	Maghdalena	Word	3	12-05-2013 09:55 PM
Putting borders around more than one photo in a word document	IPKG	Word	0	07-28-2013 02:28 PM