![]() |
#1
|
|||
|
|||
![]() 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; |
#2
|
||||
|
||||
![]()
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
JohnAnthonyWolf | Word | 7 | 11-04-2022 06:22 AM |
![]() |
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 |
![]() |
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 |