Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » 文字列の折り返しを変更するWordマクロ

文字列の折り返しを変更するWordマクロ

対象：Word2007, Word2010, Word2013

「vba ワードマクロ文字列の折り返し」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Word文書に浮動オブジェクトの画像・図を入れるような場合、本文の文字列と、画像・図の位置関係をどうするかを指定する［文字列の折り返し］は、とても重要です。

「vba ワードマクロ文字列の折り返し」という検索キーワードは、この［文字列の折り返し］の設定を、VBA（Visual Basic for Applications）で行うにはどうすればいいのかを探している方によるものでしょう。

たくさんの浮動オブジェクトの文字列の折り返しを変更しようとすると、かなり面倒ですから、マクロで処理してしまいたいという要望は、とても共感できます。

［スポンサードリンク］

アクティブ文書の全浮動オブジェクトの折り返しを四角に変更するサンプル

以下のようなWordマクロで、アクティブな文書の全Shapeの文字列の折り返しを「四角」に変更することができます。

Sub 文字列の折り返しを四角に()
　Dim shp As Shape
　For Each shp In ActiveDocument.Shapes
　　shp.WrapFormat.Type = wdWrapSquare
　Next
End Sub

アクティブ文書のすべてのShapeに対してFor Each～Nextループを回して、

For Each shp In ActiveDocument.Shapes

順番にWrapFormatオブジェクトのTypeを変更しています。

　shp.WrapFormat.Type = wdWrapSquare

アクティブページの全浮動オブジェクトの折り返しを四角に変更するサンプル

以下のようなマクロにすれば、アクティブなページの全Shapeの文字列の折り返しを「四角」に変更することができます。

Sub 文字列の折り返しを四角に_アクティブページ()
　Dim shp As Shape
　For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange
　　shp.WrapFormat.Type = wdWrapSquare
　Next
End Sub

先ほどのアクティブ文書を対象にしたマクロで

For Each shp In ActiveDocument.Shapes

となっていた部分が、

For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange

となっていることだけが異なります。

Word VBAで画像を背面に

最終更新日時：2022-07-22 17:56

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » 文字列の折り返しを変更するWordマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBA経験者向けに、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

「Shape・図形」の記事一覧