とりあえずこれで動くのではないかと思います。 他にもいろんなやり方があると思うのでいろいろ試してみて下さい。 ダブルクォーテーションを含むフィールドをABCとします。 1.ABCの文字列の長さをLen関数で調べます。 2.Mid関数でABCから1文字取り出してIchiMojiへ入れて、ダブルクォーテーションでなければMojiretsuに入れます。 3.ABCの文字列の長さ分だけ2の処理を繰り返します。 4.最終的にダブルクォーテーションをはずしたABCの内容がMojiretsuに入ります。 Wquot = Chr$(34) Mojiretsu = "" IchiMoji = "" Cnt = 1 Lng = Len(doc.ABC(0)) Do IchiMoji = Mid$(doc.ABC(0),Cnt,1) If IchiMoji <> Wquot Then Mojiretsu = Mojiretsu + IchiMoji End If Cnt = Cnt + 1 Loop Until Lng < Cnt