Code Mod to prevent further .Replacement.Text over complete Document.

[DocAElstein]

.......... I wanted to modify the code so that it does not ask me if I want to continue doing the replacement for the whole WORD document BUT ALSO that it does not then actually do that.
. I did try the Application.DisplayAlerts = False Application.DisplayAlerts = True Pair. This did prevent me being asked, BUT then the code goes on to do the replacement across the whole WORD Document. ( Which I do not want )
......

Hi
_~~~~~I think I have the answer to this now
_~~~~~I got it along the way when asking a similar question here:
Eileen's Lounge • View topic - Word VBA Replace multiple Spaces in Text with BB Code String


_~~~~~~I think I was close, It all lies on this bit , the Wrap Property


_~~~~~~~~~~~~~.Wrap


_~~~~~~With hind sight if I goggle that you soon see what it is about.
_~~~If you leave it out..~~( or have~~~~~~~.Wrap = wdFindAsk~~~~and have the Application.DisplayAlerts = False / Application.DisplayAlerts = True pair )..~~~then the code will go on to find and replace over the whole document
_~~~~~~For what i wanted, I simply need this

~~~~~~~~~~~.Wrap = wdFindStop




_ Thanks anyway for anyone that looked in.
_ Alan