以前紹介した「カーソル位置より前に同じ文字列が記載されているか調べるWordマクロ」の続編です。
使っていてちょっと不便だった点を改良しました。
＜目次＞
改良点
文字列を検索している最中に、検索処理を中止して、現在選択されている文字列に対して処理を行うことができる前回のバージョンでは、カーソル位置よりも前に同じ文字列があるかどうかを確認するだけでした。
同じ文字列があったことを確認できた場合でも、その文字列を操作したりできませんでした。
つまり、「眺めているだけ」の状態だったんですね。
マクロの解説
キャンセルボタンを追加しました。
キャンセルボタンをクリックするか、キーボードの[Esc]をおすと、検索処理から抜け出すことができます。
そして、現在選択されている文字列が表示されます。
マクロ
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | Sub Antecedent_Search() Dim myRange As Range Dim Msg, Style, Title, Response As String Dim SS, SE As Long Dim FoundBln As Boolean SS = Selection.Start SE = Selection.End FoundBln = False '文字列が選択されていない場合には終了 If SS = SE Then End '表示される言葉の設定 Msg = "次を検索しますか？" Style = vbYesNoCancel + vbQuestion + vbDefaultButton2 Title = "検索結果" Set myRange = ActiveDocument.Range(0, 0) With myRange.Find .Wrap = wdFindStop .Execute findText:=Selection.Text Do While .Found = True If myRange.Start <> SS Then FoundBln = True myRange.Select Response = MsgBox(Msg, Style, Title) If Response = vbYes Then myRange.Collapse Direction:=wdCollapseEnd .Execute ElseIf Response = vbCancel Then myRange.Select GoTo Proc_End ElseIf Response = vbNo Then Exit Do End If Else If FoundBln = False Then MsgBox "見つかりませんでした。" Selection.Collapse Direction:=wdCollapseEnd End Else MsgBox "これ以上見つかりませんでした。" Exit Do End If End If Loop End With Set myRange = ActiveDocument.Range(SS, SS) With myRange.Find .Wrap = wdFindStop .Execute findText:=Selection.Text End With myRange.Select Selection.Collapse Direction:=wdCollapseEnd Proc_End: Set myRange = NothingEnd Sub |