Microsoft Office Forums - View Single Post

macropod · 12-02-2014, 04:55 AM

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

then, before '.Text = "[^13]{2;}"' later in the code, insert:

Code:

    .Text = " ^l"
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll

As for aanmoedigen. [222], what I see is:

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.