Yes, it is my fault i did not try a second code.
If this is not a problem I will add some precise correction to improve a macro.
1. Adding a sign (ChrW(9658)) after first word could be repleaced to adding sing to group of words array ("ROPCZYCE", "IWIERZYCE" ,e.t.c...) important thing is that it should be only taking words in uppercase If there will be no one of word from array do not add a sign.
2. first and second paragraph should be bold. Not in every document two paragraphs should bold. Notice that in example file two paragraphs are title and paragraph below title. I don't know how to see a reguality of this case so maybe left it as two paragraphs bold in every time.
3. so, mf and jas should bold either and before this words add tab but "so" or "mf" or "jas" will be not in every document.
4. At the end of last part of document it could be array ("FOTO: M.FRON", "FOTO: S.OSKARBSKI", e.t.c..) - change a size of it to 5, and timesnewroman font.
5. After a text from array ("FOTO: M.FRON", "FOTO: S.OSKARBSKI", e.t.c..). to the end of document text should be timesnewroman font and .LineSpacing = LinesToPoints(0.9).
Note that not in every document will be points 4 and 5
I hope that is clear.
I've attached word file with example wich clarify what i mean.
|