カーソルを移動するマクロ(ジャンプ機能) | みんなのワードマクロ

みんなのワードマクロ

ワードマクロで、文書作成とオフィス事務を効率化!!

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マクロの便利な機能一覧