Saving as a pdf file based on certain parameters in the document

[mery]

I need a little help. I tried to make a code that will make my future work much easier. The ultimate goal of the code I want to get is to save it as a pdf file based on certain data in this document.

Variable parameters are:
- Surname (Father's name) Name, which is in the 2nd paragraph.
- The name of the unit, which is in the 5th paragraph
- to the text after the word ID

My idea is that the file is saved for example "7. electoral unit MONICA (George) HENDERSON Sample 278B" which is what I got with this code.
However, when the name is changed in the fifth paragraph and if there are more or less words than 4 (currently the 7. electoral unit), then I cannot save it as a pdf file ("This is not valid filename" error).


In order to be able to save it, I have to change the code and enter the number of words in that paragraph, for example:

If it is stated in paragraph 5 "Main office" I have to change it

With rngLine5
         .End = .Start
         .MoveEnd wdWord, 2
         rngFilename = .Text
End With

How do I get the string from the fifth paragraph no matter how many words it has?

Thanks in advance...