横から失礼します。 高橋さんのおっしゃる通り、スクリプトに置換はありませんので、 ループで変換していくしかないと思います。 ただ、式をそのまま使用することもできます。 式はEvaluateの中で使用するため、「""」で囲み、その中に使用する文字列は、 「""」を重ねる（2つ使用する）必要があります。 From_Moji = "橋太郎" frmlist = """"":""邊""" tolist = """高"":""辺""" nm = Evaluate("@ReplaceSubstring("""+ From_Moji +""";"+ frmlist + ";"+ tolist + ")") Msgbox(From_Moji + " → " + nm(0))