How to replace straight quotes with smart quotes.

Many thanks.
Can u give VB code to do this with multiple files.
I am not a programmer and need expert help.

Thanks for a nice script.
But unfortunately word formats in some other way. If the quote text are not correctly preconfigured it puts wrong quote marks.
Iis there any other way to replace throghh VB script like start of the word with chr 147 and end of the word with chr 148 so on.
Thanks

So you're saying that you have a document with straight quotes, you go to Tools, AutoCorrect, AutoFormat as You Type, and you select the box to replace straight quotes with smart quotes - when you do a search and replace, it doesn't work?  I don't understand.

Actually whenever I use autoformat feature for smart quotes, it does not replace in correct direction. Some times it place starting quotes to end or end quote to start. Apostrophi also has this problem.
I need help to have VB macro to replace these quotes some thing like Replace (") Before word with Chr(147) and after word Chr(148).
I need your help please.

Perhaps you could post a small example file where this happens so we can look at it. I've never run across what you describe. I really don't think you should need a VB macro to do this -- and it isn't a trivial exercise.

Are you sure the Language setting is English? And are the separators between suspect words actually spaces or legitimate punctuation?

If it doesn't replace properly, then there are probably spaces either before or after the quotes or apostrophe.

I use english.
Can u help me with a vb code for this.
Thanks for help.