🚀 go-pugleaf

I know a lot of you have crossed over from the PageMaker side and there's not a lot of script help on PM forum. I've written a script to apply style sheets based on keywords in PM 7.01. Most of it works fine but I'm having trouble with applying "Product Head" stylesheet to ChangeAll "^p^p", "^p^p$". (the reason I add the $ to the return is so it will apply style sheet to the line after the double return. $ could be anything. I then take out $ and double return. This works great manually, but I think I may be having trouble with the script clearing matchcase and wholeword affecting the changeall.) Any help would be most appreciated.

SelectAll
FindParaAttr "Any", any, any
ChangeParaAttr "Any", any, any
style "Body no indent"
textcursor -story
--Problem area.................................
ChangeParaAttr "Product Head", any, any
try ChangeAll "^p^p", "^p^p$", anycase, allinstances, currentstory
ChangeParaAttr "Any", any, any
try ChangeAll "^p^p$", "^p^p"
--It works great from here on..................
ChangeParaAttr "Circle number", any, any
try ChangeAll "Circle", "" wholeword, currentstory
ChangeParaAttr "Company/Mfg", any, any
try ChangeAll "Inc, ", ""
try ChangeAll "Co, ", ""
try ChangeAll "Corp, ", ""
try ChangeAll "Ltd, ", ""
try ChangeAll "LLC, ", ""
try FindWhat "Any", any, any
ChangeParaAttr "Any", any, any
try ChangeAll "^p^p", "^p"

I can supply a small .pmd with a chunk of text and style sheets if that helps. Sandy