ヘルプはキチンと読んで頂いたと思うので、型のエラーの原因は判りましたよね。 また、あささんや高橋さんが言うように、Evaluate式内に記述している@関数式が、 間違えていたというのは、お気付きですよね。 これ以上、色々言うのもなんですので、Evaluate式内の記述が、正しいかどうかを調べる方法を 教えます。 かげさんのスクリプトで････ plainText = rtitem.GetFormattedText( False, 0 ) nm = Evaluate("@right(plaintext ; ""氏名"")") と、なっている部分を････ plainText = rtitem.GetFormattedText( False, 0 ) formula = "@right(plaintext ; ""氏名"")" ※※ messagebox formula , 0 nm = Evaluate(formula) とすると、Evaluate式内の@関数式が、メッセージボックスで出てきます。 上のスクリプトだと････@right(plaintext;"氏名")････と、出てきます。 ここが････@right("plainText変数の値";"氏名")となる様に、※※の行を、 修正していきます。 あと、Evaluate式については、このサイトでかなり話題にでてきます。 Evaluateで検索してみると、記述方法の勉強にもなりますよ。 以上、がんばってみてください。