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:
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.
|
there is probably very little that needs changing, though I'd need an actual document with some Psalms to test with.