|I could tell you how to do this in Word, but it's kind of a pain. Instead, I'm just going to make a VBScript.|
Open Notepad and save the following Unicode text as "fix.vbs" (not fix.vbs.txt). This is important. In the Save dialog, make sure you include the double quotes in the File Name, and set the Encoding as Unicode.
To use the script, drag the Word document(s), and drop them on the fix.vbs icon. This should open the document in Word, and perform the conversion.
findWhat = Array("…", "Ά", "Έ")
replaceWith = Array("...", "'A", "'E")
For Each arg In WScript.Arguments
Set Doc = GetObject(arg)
Doc.Application.Visible = True
For i = 0 To UBound(findWhat)
Doc.Range(0, Doc.Application.Selection.End).Find.Execute _
findWhat(i), True, False, False, False, False, True, 1, _
False, replaceWith(i), 2, False, False, False, False
How To Ask Questions The Smart Way