カーソルを移動するマクロ（ジャンプ機能）

Wordにはもともと、検索用（カーソルを移動用）の機能が充実しています。

Browerオブジェクトを利用して、そのプロパティを変更すると検索対象が変わります。

それをマクロで記述してみました。




▼このマクロでできること
「検索と置換」ダイアログボックスのジャンプ機能を利用しています。

[Ctrl] + [J]で、以下のダイアログボックスが表示されます。





左側の「移動先」の欄で選択する項目を変更すれば、さまざまな対象物にジャンプできます。


以下のマクロでは、「前回検索語」、「コメント」、「表」、「図」、「フィールド」の場合を示しました。





▼マクロの解説
Browerオブジェクトの.Nextメソッドや.Previousメソッドにて、「次」と「前」の移動をしていますね。




▼マクロ
Sub 前回検索語_次()
 　　With Application.Browser
　　　　.Target = wdBrowseFind
　　　　.Next
　　End With
End Sub


Sub 前回検索語_前()
 　　With Application.Browser
　　　　.Target = wdBrowseFind
　　　　.Previous
　　End With
End Sub


Sub コメント_次()
 　　With Application.Browser
　　　　.Target = wdBrowseComment
　　　　.Next
　　End With
End Sub


Sub コメント_前()
 　　With Application.Browser
　　　　.Target = wdBrowseComment
　　　　.Previous
　　End With
End Sub


Sub 表_次()
 　　With Application.Browser
　　　　.Target = wdBrowseTable
　　　　.Next
　　End With
End Sub


Sub 表_前()
 　　With Application.Browser
　　　　.Target = wdBrowseTable
　　　　.Previous
　　End With
End Sub


Sub 図_次()
 　　With Application.Browser
　　　　.Target = wdBrowseGraphic
　　　　.Next
　　End With
End Sub


Sub 図_前()
 　　With Application.Browser
　　　　.Target = wdBrowseGraphic
　　　　.Previous
　　End With
End Sub


Sub フィールド_次()
 　　With Application.Browser
　　　　.Target = wdBrowseField
　　　　.Next
　　End With
End Sub


Sub フィールド_前()
 　　With Application.Browser
　　　　.Target = wdBrowseField
　　　　.Previous
　　End With
End Sub




▼関連記事
初めての方へ（ブログの目次）

Wordマクロの便利な機能一覧