Find and replace multiple documents change style

[BaPW]

I am trying to do find and replace in multiple documents at the same time and have found macros to do that but I am also trying to change the style of the replaced text to Heading 1. When I have tried to add the part about styles it does not work. I have not really worked with macros in quite a few years. Thanks for any help.