Reinstating or ignoring Apostrophes

[CDandVinyl]

I use this code to remove non-standard characters in my text :

Please Login or Register  to view this content.

It does the job well , but unfortunately it also replaces apostrophes in the text so that

I'm becomes Im

We'll becomes Well

You're becomes Youre

and so on.

Can someone suggest a way to adapt the code so it doesn't remove apostrophes?

Very grateful for any advice.

[davesexcel]

I have not worked with word, but would it be possible to take out the apostrophe?"

Please Login or Register  to view this content.

[6StringJazzer]

Is it replacing a plain apostrophe? '
or a "smart" apostrophe? ’

[CDandVinyl]

The code seems to be removing the "smart" apostrophe (’) you mention , rather than the simple one.

The amendment by davesexcel above seems to be having an effect and leaves both in place.

It occurs to me with this in mind that a search to replace the 'smart' with the 'simple' could work before the code above runs , but I'm having trouble enacting this in Word.

[CDandVinyl]

As an update , It's no further forward presently.

Although the the amendment by davesexcel in post 2 does leave apostrophes in place , it also leaves other non-standard characters in the text which it previously removed.

[CDandVinyl]

The issue is being caused by the Auto-formatting of Straight quotes to Smart quotes.

For the code in #1 to work consistently , the quotes in the text need to all be straight. Simply searching and replacing won't work , because Word will just autoformat back to Smart codes.

This VBA turns of the autoformatting , runs the search and replace and then turns the autoformatting back on again.

Please Login or Register  to view this content.

The Autoformat function can be turned off and on manually ;

Tools->AutoCorrect Options->AutoFormat As You Type tab->"Straight Quotes"
with "Smart Quotes"

and

Tools->AutoCorrect Options->AutoFormat tab->"Straight Quotes"
with "Smart Quotes"

but the VBA takes care of it in a way that is not so long-winded.