ワードのＶＢＡで

お世話になります。X = ActiveDocument.Tables(1).Cell(1, 2)　のコードでワードの表から値を取得するとテキストの最後に改行マーク「・」が付いてきます。テキストだけ取得する方法をお教えください。
宜しくお願い致します。

No.1 ベストアンサー 回答者： neKo_deux 回答日時： 2005/02/24 18:54

対症療法ですが、必ず「・」がついてくるのなら、

X = Left(X,Len(X)-1)

などと右の１文字を取ってしまうのは？
安全を期すのなら、右端の文字が「・」だったら…という処理にするとか。

この回答への補足

早速のご回答有難うございます。「・」は一見無くなったのですが次のコード、If X="ＡＢＣ" ThenがTrueとなりません。皆さん宜しくお願い致します。

補足日時：2005/02/24 19:20

No.3 回答者： piyo2000 回答日時： 2005/02/24 21:22

再度すみません(^^;

X = replace(x,chr$(7))
は
X = replace(x,chr$(7),"")
ですね。

この回答へのお礼

皆さん有難うございました。解決いたしました。また宜しくお願い致します。

お礼日時：2005/02/25 09:59

No.2 回答者： piyo2000 回答日時： 2005/02/24 21:18

>If X="ＡＢＣ" ThenがTrueとなりません。

「・」って、所謂２バイト文字(全角文字)じゃないですか？
それに、Textで取ってくると必ず末尾にvbCr(改行コード、0x0d)等がついてくるはずです。

調べてみると、最後に0x0d,0x07がくっついて「・」になっているようです。
ですので
X = replace(x,chr$(7))
X = Left$(X,Len(X)-1)
とすればいいと思います。
# 本当は、No1さんの仰るように最後にvbCrがあるかどうかを調べたほうがいいんですけどね