対象：Word2007, Word2010, Word2013
「vba ブックマーク 削除」
といった検索で、このサイト・インストラクターのネタ帳ありました。
ブックマークを削除するVBA（Visual Basic for Applications）のコードを探していた方による検索です。
どのアプリケーションでの話なのか、
「vba ブックマーク 削除」
という検索キーワードだけではわかりませんが、パソコンのインストラクターさんの場合、Wordのブックマーク機能についてインストラクションするためにブックマーク機能を何度も使っているうちに、たくさんブックマークが登録されてしまったので、とにかく一気にすべてのブックマークを削除するマクロが欲しい、というニーズはありそうです。
全ブックマークを削除するサンプルマクロ
以下のようなマクロで、アクティブな文書の、全ブックマークを一気に削除することができます。
Sub すべてのブックマークを削除する()
With ActiveDocument.Bookmarks
Dim i As Long
For i = .Count To 1 Step -1
.Item(i).Delete
Next
End With
End Sub
With ActiveDocument.Bookmarks
Dim i As Long
For i = .Count To 1 Step -1
.Item(i).Delete
Next
End With
End Sub
サンプルマクロの解説
DocumentオブジェクトのBookmarksプロパティでBookmarksコレクションを取得して、
With ActiveDocument.Bookmarks
ブックマークの数だけ後ろから前にFor～Nextループを回して、
For i = .Count To 1 Step -1
BookmarksコレクションオブジェクトのItemメソッドで取得した、BookmarkオブジェクトのDeleteメソッドを使って、順番に削除を行っています。
.Item(i).Delete
最終更新日時：2022-01-05 16:08
［スポンサードリンク］
Home » ワードマクロ・Word VBAの使い方 » ブックマーク » Word VBAですべてのブックマークを削除する
