Word VBA質問箱 IV

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

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


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

391 / 886

←次へ　｜　前へ→


	【509】選択範囲の文字を検索したい

ぱんくろうママ - 06/10/31(火) 23:56 -


	引用なし

	パスワード

初めまして。
Wordのマクロの自動記録を行ないました。
操作については、題名にあるような事をするためです。

１．ある文字列をドラッグする
２．その文字列をコピー
３．検索のダイアログボックスを表示し、検索する文字列のところにコピーした文字を貼り付ける
４．検索を開始（上に向って）
５．出てきたら終了

という手順で、先に文字列をドラッグしておいて、２～５までを自動記録しました。

しかし、違う文字列をドラッグしてこのマクロを実行すると、

・マクロの自動記録をしたときに選択していた文字列で検索してしまう
・選択範囲の検索が終了しました。検索項目は見つかりませんでした。、と出て自動記録した時に選択していた文字列すら見つからない。

という状況になります。

記録したマクロは以下の通りです

Sub Macro15()
'
' Macro15 Macro
' 記録日 2006/10/31 記録者
　　
　　Selection.Copy
　　Selection.Find.ClearFormatting
　　With Selection.Find
　　　　.Text = "aaa"
　　　　.Replacement.Text = ""
　　　　.Forward = False
　　　　.Wrap = wdFindAsk
　　　　.Format = False
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = True
　　End With
　　Selection.Find.Execute
End Sub

.Textのところに、記録をしたときに最初に選んだ文字列"aaa"が入ってしまいます。

選んでは検索し、出てきたらそこで作業、選んでは検索し…を繰り返したいのですが。

よろしくお願いします。

2,252 hits

▼

【509】選択範囲の文字を検索したい ぱんくろうママ 06/10/31(火) 23:56