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

[スポンサードリンク]

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

「Shape・図形」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.