#16
|
|||
|
|||
The original Jozua is attached
|
#17
|
||||
|
||||
When I run the macro, there is no '2e HOOFDSTUK.' in the result and all the content numbers are correct.
With verse 8, the problem with 'Want dan zult ge uw wegen voorspoedig maken, en dan zult ge verstandig handelen.' is that you have a paragraph break in the verse. If you need breaks in a verse, use line breaks, not paragraph breaks. The simplest way of ensuring that happens is to insert the following code after 'With RngDoc': Code:
With .Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindContinue .Format = True .Font.Italic = True .MatchWildcards = True .Text = "^13([!0-9]*^13)" .Replacement.Text = " ^l\1" .Execute Replace:=wdReplaceAll .Format = False .Text = "[ ]@^13" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll .Text = "[ ]{2;}" .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With Code:
.Text = " ^l" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll Code:
aanmoedigen. [222] </content> </vers> <content number="1">17. Zoals wij in alles naar Mozes gehoord hebben, alzo zullen we naar u horen; alleen, dat de HEERE, uw God, met u zij, zoals Hij met Mozes geweest is! 18. Alle man die uw mond weerspannig zal zijn en die geen genoegen zal nemen met uw woorden, in [219] alles wat ge hem gebieden zult, die zal gedood worden; alleen, wees sterk en heb goede moed. </vers> <hoofdstuk number="2"> <content number="2">1.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#18
|
|||
|
|||
Its almost without any failures
THIS IS THE OUTCOME IN CHAPTER 6 VERS 24 <vers number="24"> <title number="24"> Maar de stad verbrandden ze met vuur, en al wat er in was; alleen het goud en het zilver, de koperen en ijzeren gereedschappen, plaatsten ze in de [ <hoofdstuk number="270"> </title> </vers> <vers number="25"> <title number="25"> Zo liet Jozua Rachab de hoer, en het huis van haar vader, en al wat ze had, in leven; en zij woonde in het midden van Israël tot op deze dag, omdat ze de boden verborgen had die Jozua gestuurd had om Jericho te verkennen. </title> </vers> <vers number="26"> <title number="26"> In die tijd bezwoer Jozua het volk, zeggende: Vervloekt zij de man voor het aangezicht des HEEREN die zich opmaakt om deze stad Jericho weer op te bouwen; op zijn eerstgeborene zal hij haar funderen en op zijn jongste zal hij haar poorten stellen. </title> <content number="270">26. [MUST BE 6] THIS IS THE ORIGINAL TEXT [it is Italic) 24. Maar de stad verbrandden ze met vuur, en al wat er in was; alleen het goud en het zilver, de koperen en ijzeren gereedschappen, plaatsten ze in de [270] schatkamer van het huis des HEEREN. Do you have the time to make for all the different books a script with the name of that book? So that it is the same as Genesis? What is the price I have to pay if you do this for me! There are about 40 books. Most of them are the same IN CHAPTER 24 THE 9 IS NOT ON THE RIGHT PLACE [424] daar aan deze tekst ontleend lijkt te zijn (Ps. 44:4). En als hij tenslotte eraan herinnert dat het volk de vruchten eet die het resultaat zijn van het werk van anderen, dan spoort hij hen daarmee aan om God lief te hebben, zoals Zijn weldadigheid verdient. </content> </vers> <vers number="9"> <title number="9"> En Balak maakte zich op, de zoon van Zippor, de koning van Moab. [421] </title> </vers> <hoofdstuk number="24"> <content number="24">15. Nu, AND CHAPTER 23v1 is missing the title and the vers . [411] </title> </vers> <hoofdstuk number="23"> 1 Het geschiedde nu na vele dagen, nadat de HEERE Israël rust gegeven had van al zijn vijanden rondom, dat Jozua oud werd en op jaren kwam. <content number="23">1. Hier ORIGINAL 23e HOOFDSTUK. 1 Het geschiedde nu na vele dagen, nadat de HEERE Israël rust gegeven had van al zijn vijanden rondom, dat Jozua oud werd en op jaren kwam. 2. Toen riep Jozua geheel Israël, hun oudsten, hun hoofden, hun rechters en hun opzieners, en hij zei tot hen: Ik ben oud geworden en op jaren gekomen. 3. Gij hebt gezien alles wat de HEERE, uw God, aan al deze volken voor uw ogen gedaan heeft, dat de HEERE, uw God, Zelf voor u gestreden heeft. 4. Ziet, ik heb u deze overige volken door het lot doen toevallen, tot een erfdeel voor uw stammen, van de Jordaan af, en alle volken die ik uitgeroeid heb, tot aan de grote zee, tegen de ondergang van de zon. 5. De HEERE, uw God, zal hen van voor uw aangezicht uitstoten en Hij zal hen van voor uw ogen verdrijven; en gij zult hun land volgens het recht van erving bezitten, zoals de HEERE, uw God, tot u gesproken heeft. 6. Weest dan zeer sterk, om te bewaren en te doen alles wat geschreven is in het wetboek van Mozes, opdat ge daarvan niet afwijkt, ter rechter- noch ter linkerhand. 7.Dat ge u niet vermengt met deze volkeren die bij u overgebleven zijn, en dat ge niet gedenkt aan de naam van hun goden, en dat ge daar niet bij zweert; dient hen niet en buigt u voor hen niet neer. 8. Maar de HEERE, uw God, zult gij aanhangen, zoals ge tot op deze dag gedaan hebt. 9. Daarom heeft Hij van voor uw aangezicht verdreven grote en machtige volken en niemand kon bestaan voor uw ogen, tot op deze dag. 10. Eén man uit u zal er duizend achtervolgen, want het is de HEERE, uw God, Die voor u strijdt, zoals Hij tot u gesproken [415] heeft. 11. Waakt zeer over uw zielen, dat ge de HEERE, uw God, liefhebt. 1. Hier gaat het over het plechtige getuigenis dat Jozua heeft afgelegd tegen de tijd van zijn dood, opdat hij de dienst van God na zijn dood zuiver zou |
#19
|
||||
|
||||
Quote:
• create a new blank document and add the macros to it. • save the new document as a Word Macro-enabled template (i.e. dotx format), with a name like Bibel. • when you open one of your books, go to Developer>Document Template>Attach. Then navigate to where you saved your Bibel template and select it. Once you do the above, save your book. Form now on, the macros will be available to that book without having to add the code to it and you can keep them in the docx format. Of course, once you've run the macro and you want to save the results, you'll want to use Save As to give the file a new name. Quote:
The problem you have with Chapter 6 Verse 24 and Chapter 24 Verse 9 is that you didn't format the entire paragraph with italics. In Chapter 6 Verse 24, the space after the [270] is not italic. Similarly, in Chapter 24 Verse 9, the paragraph break after [421] is not italic. I have updated the code in post #6 again to take care of these issues. The problem you have with Chapter 23 Verse 1 is that there is no '.' after the verse number '1' - it should be '1.', just like the others. I noticed that there are still some other issues with the content that you will need to correct - preferably before running the macro. In Chapter 24, for example, your notes for verse 25 ends with: Mozes overgeleverd is (Mal. 4:4). You need to delete the paragraph break that separates '4:4).' from the rest of the note, so that you have 'Mozes overgeleverd is (Mal. 4:4).'. You also have what looks like an index at the end. I have no idea what you want to do with that.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#20
|
|||
|
|||
THEY CHANGED SOME THINGS. I HOPE IT IS NOT A LOT OF WORK. </book_content>
<hoofdstuks> (must be added) <boek titel="JOZUA"> (deleted) <hoofdstuk number="1"> (good) <vers number="1"> (good) <title number="1"> Het geschiedde nu, na de dood van Mozes, dat de HEERE tot Jozua sprak, zeggende: </title> <content number="1">1. Het The <boek titel="JOZUA"> must be deleted after </book_content> there must be the name: hoofdstuks AND On the end of every chapter (after the </vers>) </hoofdstuks> </hoofdstuk> AND On the end of the book </book> |
#21
|
||||
|
||||
Your post is confusing.
You say: Quote:
Quote:
As for: Quote:
However, you still haven't explained what you want done with all the content at the front (before chapter 1) and all the content after the last verse. Because I don't know what you want to do with these, I can't do any coding to deal with them correctly.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#22
|
|||
|
|||
The 'boek titel' must be deleted including the name Jozua
BEFORE hoofdstuk THERE MUST BE THE NAME hoofdstuks THEY WANT TO START THE BOOK WITH <book> <book_content> AND THEN THE TEXT TO THE POINT WHERE THE CHAPTER STARTS AND THEN </book_content> <hoofdstuks> <hoofdstuk number="1"> <vers number="1"> <title number="1">In den beginne schiep God hemel en aarde.</title> <content number="1">1. In den beginne. Het woord begin op Christus te laten slaan, is al te |
#23
|
||||
|
||||
OK, I've revised the code in post #6 again. Try it now.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#24
|
|||
|
|||
THE BOLD IS YELLOW WITH A FAILLURE MESSAGE
For k = 1 To RngTmp.Paragraphs.Count With RngTmp.Paragraphs(k).Range If .Words.First.Font.ColorIndex = wdRed Then If IsNumeric(.Words.First) Then If .Words.First = j Then Set RngCmt = .Paragraphs(1).Range With RngCmt Do While Not IsNumeric(.Paragraphs.Last.Next.Range.Characters.F irst) .MoveEnd wdParagraph, 1 If .End = RngDoc.End Then Exit Do If .Paragraphs.Last.Next.Range.Text = UCase(.Paragraphs.Last.Next.Range.Text) Then Exit Do AND What must I change if the document as not a HOOFDSTUK. 1 or 1e HOOFDSTUK BUT HAS INSTEAD OF CHAPTER THE WORD PSALM 1. AND PSALM 2. etc. as you see below PSALM. 1 1. Welgelukzalig is de man, die niet wandelt in den raad der goddelozen, en niet stil staat op den weg der zondaren, en niet zit in het gestoelte der spotters: 2 Maar zijn lust; is in des Heeren Wet, en hij overdenkt Zijne "Wet dag en nacht. 1. Welgelukzalig is de man. De voornaamste zin is (zooals ik reeds zeide), dat het den vromen dienaren Gods altijd goed zal gaan, die ijverig zich er op toeleggen in Zijne Wet vooruit te komen. Want omdat hun eenvoudigheid door het meerendeel der wereld bespot wordt alsof zij hun moeite tevergeefs deden, was het nuttig, dat zij met dit schild gewapend werden: dat alle stervelingen zonder Gods zegen ellendig zijn: en dat God niemand goedgunstig is, dan |
#25
|
||||
|
||||
What did the error message say?
The only unusual thing I can see is that the code you pasted has: Do While Not IsNumeric(.Paragraphs.Last.Next.Range.Characters.F irst) instead of: Do While Not IsNumeric(.Paragraphs.Last.Next.Range.Characters.First) This code has not been changed. As for: Quote:
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#26
|
|||
|
|||
I translated it from Dutch and it says something like
objectvariable or blockvariable With has not been setup |
#27
|
||||
|
||||
I suspect, then, you have copied the code incorrectly. Try it again - you should have 215 lines of code.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#28
|
|||
|
|||
</hoofdstuk> ONLY AFTER EACH CHAPTER SO AFTER CHAPTER (=HOOFDSTUK 1, HOOFDSTUK 2, HOOFDSTUK 3 etc.)
</Book> ONCE AT THE END OF THE BOOK AND WHEN A CHAPTER ENDS THEM FIRST </hoofdstuk> AND THEN: </hoofdstuks> THEY SENDED ME THE FOLLOWING EXAMPLE <book> <book_content> weg aangewezen waarlangs wij met de heilige vaderen naar het einddoel der zalige onsterfelijkheid moeten streven. En laten wij nu Mozes zelf gaan beluisteren. etc GENESIS </book_content> <hoofdstuks> <hoofdstuk number="1"> <vers number="1"> <title number="1">In den beginne schiep God hemel en aarde.</title> <content number="1">1. In den beginne. Het woord begin op Christus te laten slaan, is al te gezocht. Wil men drie Personen hier opmerken, dan zijn zij niet onderscheiden. Die tevoren eenigermate in zijn eeuwig bestaan lag verborgen. [29]</content> </vers> <vers number="2"> <title>De aarde nu was wanstaltig en ledig, en duisternis was op de oppervlakte des afgronds; en de Geest Gods zweefde op de wateren.</title> <content>2. Was wanstaltig en ledig. Met het uitleggen dezer beide woorden Wanneer de Heere Zijnen Geest wegneemt, vergaat alles tot stof, waaruit het ontstaan is, en verdwijnt. Ps. 104 vs. 29 v. v.</content> </vers> </hoofdstuk> </hoofdstuks> </book> |
#29
|
||||
|
||||
It seems to me the code is already doing all of what you asked for. For me it produces:
Code:
<hoofdstuks> <hoofdstuk number="1"> <vers number="1"> <title number="1"> In den beginne schiep God hemel en aarde. </title> <content number="1">1. In den beginne. ... </content> </vers> <vers number="2"> <title number="2"> De aarde nu was wanstaltig en ledig, en duisternis was op de oppervlakte des afgronds; en de Geest Gods zweefde op de wateren. </title> <content number="1">2. Was wanstaltig en ledig. ... </content> </vers> ... <vers number="31"> <title number="31"> En God zag al, wat Hij gemaakt had, en zie, het was zeer goed. En hét was avond geweest en morgen, de zesde dag. </title> <content number="1">31. En God zag alles. .... </content> </vers> </hoofdstuks> </hoofdstuk> <hoofdstuk number="2"> <vers number="1"> <title number="1"> Alzoo zijn voltooid, de hemelen en de aarde, en al hun heir. </title> ... </content> </vers> <vers number="38"> <title number="38"> En ook de jongste baarde een zoon en noemde zijnen naam Ben Ammi; deze is de vader van de kinderen Ammons tot op dezen dag. </title> </vers> </hoofdstuk> </hoofdstuks> </book>
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#30
|
|||
|
|||
There are a few I think minor changes necassary
The outcome should be like you see beneath DO YOU NEED THE ORIGINAL TEXT OR CAN YOU MAKE THE CHANGES WITHOUT <book> <book_content>worden, geen ander leven mogen leiden, dan 't welk hier wordt vertoond. Gelijk nu dit het beginsel des geloofs is, te weten: dat het de Eéne ware God is, Dien wij dienen, evenzoo is het eene niet te versmaden versterking daarvan, te weten, dat wij medegenooten van de aartsvaderen zijn. GENESIS </book_content> <hoofdstuks> <hoofdstuk number="1"> <vers number="1"> <title>In den beginne schiep God hemel en aarde.</title> <content>1. In den beginne. Het woord begin op Christus te laten slaan, is al te gezocht. Mozes toch wilde eenvoudig dit zeggen: dat de wereld niet terstond van den beginne geordend is geweest, gelijk zij thans gezien wordt, maar dat eene ledige chaos van hemel en aarde geschapen werd. Derhalve kan de zin aldus worden verklaard: ‘Toen God echter stel ik buiten alle tegenspraak, dat naar den aard dezer plaats, hier aan God dien Naam is toegekend, welke zijne macht uitdrukt, die tevoren eenigermate in zijn eeuwig bestaan lag verborgen. [29]</content> </vers> <vers number="2"> <title>De aarde nu was wanstaltig en ledig, en duisternis was op de oppervlakte des afgronds; en de Geest Gods zweefde op de wateren.</title> <content>2. Was wanstaltig en ledig. Met het uitleggen dezer beide woorden Ps. 104 vs. 29 </content> </vers> </hoofdstuk> <hoofdstuk number="2"> <vers number="1"> <title>In den beginne schiep God hemel en aarde.</title> <content>1. In den beginne. Het woord begin op Christus te laten slaan, is al te gezocht. Mozes toch wilde eenvoudig dit zeggen: dat de wereld niet terstond van den beginne geordend is geweest, gelijk zij thans gezien wordt, maar dat eene ledige chaos van hemel en aarde geschapen werd. Derhalve kan de zin aldus worden verklaard: Maar deze ongerijmdheden, die ik heb aangeroerd, weerhouden ons zoo maar op de Personen te laten slaan, wat Mozes heel eenvoudig van God zelf verhaalt. Dit echter stel ik buiten alle tegenspraak, dat naar den aard dezer plaats, hier aan God dien Naam is toegekend, welke zijne macht uitdrukt, die tevoren eenigermate in zijn eeuwig bestaan lag verborgen. [29]</content> </vers> <vers number="2"> <title>De aarde nu was wanstaltig en ledig, en duisternis was op de oppervlakte des afgronds; en de Geest Gods zweefde op de wateren.</title> <content>2. Was wanstaltig en ledig. Met het uitleggen dezer beide woorden Derhalve behoort dit woord vervuld te worden: </content> </vers> </hoofdstuk> <hoofdstuk number="3"> <vers number="1"> <title>In den beginne schiep God hemel en aarde.</title> <content>1. In den beginne. Het woord begin op Christus te laten slaan, is al te gezocht. Mozes toch wilde eenvoudig dit zeggen: dat de wereld niet terstond van den beginne geordend is geweest, gelijk zij thans gezien wordt, maar dat eene ledige chaos van hemel en aarde geschapen werd. Derhalve kan de zin aldus worden verklaard: Dit echter stel ik buiten alle tegenspraak, dat naar den aard dezer plaats, hier aan God dien Naam is toegekend, welke zijne macht uitdrukt, die tevoren eenigermate in zijn eeuwig bestaan lag verborgen. [29]</content> </vers> <vers number="2"> <title>De aarde nu was wanstaltig en ledig, en duisternis was op de oppervlakte des afgronds; en de Geest Gods zweefde op de wateren.</title> <content>2. Was wanstaltig en ledig. Met het uitleggen dezer beide woorden Derhalve behoort dit woord vervuld te worden: ‘Zend Uwen Geest uit en zij worden geschapen, en Gij vernieuwt het gelaat des aardrijks’ en anderzijds: </content> </vers> </hoofdstuk> </hoofdstuks> </book> |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
VBA Dropdown change list Entries automatically | QA_Compliance_Advisor | Word VBA | 20 | 09-16-2014 07:29 AM |
AutoFill- Auto Change Certain things in document? | DaveWW00 | Word | 1 | 08-06-2013 11:33 AM |
How to change dates automatically | PaperBuster | Word | 5 | 09-24-2012 09:31 PM |
Automatically change the value of one cell so that two other cells become equal | matthew544 | Excel | 5 | 09-18-2011 08:56 AM |
How can I change the colors of cells automatically based on Job Completion? | Learner7 | Excel | 0 | 07-06-2010 10:47 PM |