いつも大変参考にさせて頂いております。 貴サイトやヘルプを参考に半角カナを全角カナに置換するスクリプトを作成しました。 受信メールにおいて、Bodyフィールドに半角カナが入っていれば、全角カナに置換をしたいのですが、作成したスクリプトであると半濁音が濁音の置換がうまくいきません。 スクリプトは5分置きのエージェントで実行しています。（新規メール受信前後としたかったのですが、作成している途中で今の状態にしています） １行の文字列であればうまくいくのですが、改行が入っていると１行目の文字列に別の文字列が付いてしまいます。 スクリプトの抜粋を貼付します。 半角カナ濁音を全角カナ濁音に置換できるかご教授いただけますようよろしくお願い致します。 Sub Initialize Set session = New NotesSession Set db = session.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument Set body = doc.GetFirstItem("Body") Set rtnav = body.CreateNavigator Set rtrange = body.CreateRange count& = rtrange.FindAndReplace ("ﾞ", "Ａ", RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ﾟ", "Ｂ", RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｶＡ", "ガ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｷＡ", "ギ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｸＡ", "グ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｹＡ", "ゲ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｺＡ", "ゴ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｱ", "ア",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｲ", "イ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｳ", "ウ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｴ", "エ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｵ", "オ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｶ", "カ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE) count& = count& + rtrange.FindAndReplace ("ｷ", "キ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｸ", "ク",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｹ", "ケ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) count& = count& + rtrange.FindAndReplace ("ｺ", "コ",RT_REPL_ALL + RT_FIND_PITCHINSENSITIVE + RT_FIND_CASEINSENSITIVE ) If count& > 0 Then Call body.Compact Call doc.Save(True, True) End If Messagebox count& & " replacements made",, count& RTRAGE = "" End Sub