[Yutaka Emura]

You cannot use “”” in VBScript.
You should use Chr(&H22) instead.

	document.selection.Replace Chr(&H22),"cyo" & Chr(&H22),eeFindNext Or eeFindReplaceEscSeq Or eeReplaceAll