Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » テキストボックスだけを選択するWordマクロ

テキストボックスだけを選択するWordマクロ

対象：Word2007, Word2010, Word2013

「ワードマクロテキストボックスすべて選択」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

テキストボックスすべて選択するWordマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

［スポンサードリンク］

アクティブページ上のテキストボックスを選択するサンプルマクロ

参考になりそうなマクロとして、アクティブなページに存在するテキストボックスだけを選択するWordマクロを作ってみました。

Sub アクティブページのテキストボックスを選択する()
　Dim shp As Shape

　ActiveDocument.Bookmarks("\Page").Select

　For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange
　　If shp.Type = msoTextBox Then
　　　shp.Select Replace:=False
　　End If
　Next shp
End Sub

アクティブページ上のテキストボックスを選択するサンプルで行っている処理

メインの処理は、テキストボックスだけを選択していくFor Each ～ Next文の部分です。

アクティブなページ上の全Shapeにループを回して、
　　For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange

もしShapeがテキストボックスだったときに、
　　If shp.Type = msoTextBox Then

そのShapeを選択しています。
　　　shp.Select Replace:=False

ShapeオブジェクトのSelectメソッドの引数・ReplaceにFalseを指定することで、すでに選択されているものの選択を解除せず追加で選択する形で、選択するようにしています。

万一、テキストボックスではない図形が選択された状態で上記のループ処理にいきなり入ると、テキストボックスでない図形も含んで選択された状態になってしまいます。
そうならないようにループ処理に入る前にアクティブなページを選択する処理を入れています。
　　ActiveDocument.Bookmarks("\Page").Select

最終更新日時：2019-01-13 05:34

［スポンサードリンク］