Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

323 / 886

←次へ　｜　前へ→


	【579】Re:選択した文字列から１文字ずつ削除するには

ｋ.ぬま

- 08/6/25(水) 21:14 -


	引用なし

	パスワード

　▼ｋ.ぬま：
自分で以下のところまでコードを作りました。
\を入れなければ順調に動きます。ただし、何の変化もありませんが。
\を入れられない規則が分かりません。
正しいコードにしたいのですけど、分かる方、どうぞご指導をお願いします。
上半分は、文字列の右側部分の英数字を取り除き、
下半分は、文字列の左側部分の和字を取り除くことを考えています。\wや\はだめと言うことみたいです。

　 str1 = ""
　　str = Selection.Text
　　n = InStr(str, \w)　’←コンパイルエラーで赤くなります、\が原因
　　Do Until n = 0
　　　　str1 = str1 & Left(str, n - 1)
　　　　str = Mid(str, n + 1)
　　　　n = InStr(str, \w)’←コンパイルエラーで赤くなります、\が原因
　　Loop
MsgBox "Yougoの取出し"
'～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
　　str2 = ""
　　str = Selection.Text
　　n = InStr(str1, ￥D)　’←コンパイルエラーで赤くなります、\が原因　　　　Do Until n = 0
　　　　str2 = str2 & Right(str, n - 1)
　　　　str = Mid(str, n + 1)
　　　　n = InStr(str, ￥D)　’←コンパイルエラーで赤くなります、\が原因
　　Loop
MsgBox "Fugouの取出し"

1,764 hits

▼

【578】選択した文字列から１文字ずつ削除するには ｋ.ぬま 08/6/25(水) 11:02