Unless you have other paragraphs with the dates at their ends, you don't actually need a macro. Simply use a wildcard Find/Replace, where:
Find = <[MTWFS][ondayueshrit]{2,7}, [JFMASOND][anuryebchpilgstmov]{2,8} [0-9]{1,2}.^13
Replace = ^&
and you set the Replace character and paragraph formats with the bold and Keep With Next attributes, respectively.
That said, I'd recommend defining a paragraph Style with the bold and Keep With Next attributes and use that as the replacement Style. You could, of course, record the above as a macro.
Reply With Quote