ワードのＶＢＡで

質問

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

回答No.1

neKo_deux · ベストアンサー

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

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

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

補足

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

回答No.3

piyo2000

再度すみません(^^;
X = replace(x,chr$(7))
は
X = replace(x,chr$(7),"")
ですね。

お礼

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

回答No.2

piyo2000

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

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

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