| |
>>今組んでいるマクロでは、選択範囲は無視されて、ドキュメントの最後まで検索してしまいます。
>
>ですが、私の環境では、ゆいさんが最初に提示されたマクロで、
>選択範囲のみの検索になっているみたいです。
>それとも私は何か勘違いしてるのかしら。
もしかするとわかったような気がします。
ht tp://www.ka-net.org/blog/?p=1199
リンク先のように、検索を繰り返す場合の問題なのかもしれませんね。
確かに、マクロを使う場合は、単純な検索・置換でなく、
検索しながら、何らかの処理を繰り返し、
といった場合のほうが、多いと思いますので。
つまり、ゆいさんの提示されたコードは、
もう一つのほうの位置取得の質問のためのものだったと。
以前書いた検索を使ったコードを探してみました。
全然覚えていませんでしたが、
自分ではこんな感じにしていたものがありました。
Set myRng = Selection.Range
With myRng.Find
.Text = "■■"
Do While .Execute
If myRng.End > Selection.End Then Exit Do
'ここで処理実行
Loop
End With
でも今試してみたら、リンク先のInRange（知りませんでした）を使った方法と同じで、検索範囲と検索語が同じだった場合は、期待通りになりませんでした。
それがわかったことと、InRangeの存在を知ったのは収穫です。
H. C. Shinopyさんの
>Ifステートメントで範囲内かどうか判断しながら処理する方法はありますが、
これは、InRangeを使う方法のことだったのかも知れませんね。
というわけで、私の便乗質問については、何とか納得（解決）です。
|
|
マナ
- 13/5/5(日) 10:55 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
