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