Bookmarks based on Format: Loop Once through whole Doc

Hi,
I'm trying to auto create Bookmarks based on a specific Font Format (with that line once selected to become the Bookmark name) found throughout the document. Single instance find and BM creation works, but I'm having trouble to make it loop ONCE through the Doc to catch all lines that have that specific format. Any help is much appreciated.

The single instance find creates named BMs and is cumaltive but tedious:

Please Login or Register  to view this content.

Thus the whole doc loop. Problem: either only first line caught, or infinity loop even though the End-of-Doc declare, regardless of how I rewrite it:
v1

Please Login or Register  to view this content.

v2

Please Login or Register  to view this content.

For example:

Please Login or Register  to view this content.

Do note that the inserted bookmarks are hidden and numbered. That's because:
• bookmarks cannot begin with numbers; and
• bookmark names must be unique.
Making the bookmarks hidden prefixes them with an underscore, which avoids the first problem, whilst numbering avoids the second problem. Changing the prefix character to something else will make the bookmarks visible.

As coded, the macro will replace any of the existing bookmarks it has previously inserted on each run.

Code corrected.

The nested loop is so that each line within in a multi-line range will get its own bookmark. It achieves what you're doing with
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
but without the need to select anything. I suppose I could have used an IF test instead of the outer loop, but the result would be the same.

@ politono.

Please update your profile to specify your location. Something general like USA or UK etc is sufficient. It aids us volunteers in having an idea what your regional settings are.

I am sure you understand and thank you in advance.

I've replaced the Const StrNoChr As String line to eliminate paragraph breaks, etc.

Regardless, I cannot see how you're getting all those bookmarks. Assuming your 'Title #' strings are all that's bolded, the code as posted only returns one bookmark for the whole of each string.

That's not how the macro works. It works at the whole-of-string level - including bolded spaces. The only reason it would bookmark individual characters is if you have non-bold spaces between the letters/numbers.

politono Please update your profile as requested back in post #5.

Unless you're working with a corrupt document, the code as posted does not bookmark each character. The only other way you could get that result is because you've changed the code (e.g. using an ordinary search for ^? or a wildcard search for *).

See attached.

Now all you need to do is update your profile...