Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAで行内図形の文字列・テキストを取得する

Word VBAで行内図形の文字列・テキストを取得する

動作検証バージョン：Windows 11 Home + 64bit Word バージョン 2506（ビルド18925.20168クイック実行）

Wordで、文字列の折り返しを「行内」に設定した図形やテキストボックスの、

文字列・テキストをVBAで取得したいという要望があるようです。

［スポンサードリンク］

行内図形の文字列・テキストを取得するサンプルマクロ

以下のWordマクロを実行すると、文字列の折り返しを行内に設定した図形の文字列がイミディエイトウィンドウに出力されます。

Sub 行内図形の文字列を取得する()
　Dim shp As Shape
　For Each shp In ActiveDocument.Shapes

　　If shp.WrapFormat.Type = wdWrapInline Then
　　　Debug.Print shp.TextFrame.TextRange.Text
　　End If

　Next
End Sub

この処理で厄介なのは、図形の場合は文字列の折り返しが行内であってもInlineShapeオブジェクトではないことです。

そこで上記のWordマクロでは、Document.Shapesプロパティで取得できるShapesコレクションに対してFor Each～Nextループを回して、

　Dim shp As Shape
　For Each shp In ActiveDocument.Shapes

WrapFormat.Typeプロパティの値が、

定数wdWrapInlineだったときにのみ、文字列を出力しています。

　　If shp.WrapFormat.Type = wdWrapInline Then
　　　Debug.Print shp.TextFrame.TextRange.Text

最終更新日時：2025-07-28 10:22

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAで行内図形の文字列・テキストを取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

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

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

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

Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓

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

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

上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

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

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

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

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

「Shape・図形」の記事一覧