Find and replace macro for Special ^p - MS Word

[MHSL]

I am looking macro for Find and Replace specials replacements:

.^p to .^p^p
!^p to !^p^p
"^p to "^p^p
)^p to )^p^p
:^p to :^p^p

^p_ to ^p (_ is space)
_^p to ^p (_ is space)
^p^p^p to ^p^p

^m to ^p^p
^m to ^p^p
^b to ^p^p

etc.....

Can anyone send some link for this type of macro.

Rgds
S