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

Word VBAで図形のテキストを取得する基本

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

「wordvba 図形テキスト」
といった検索が、このサイト『インストラクターのネタ帳』で行われていました。

Word VBAで、Word文書上にある図形のテキスト（文字列）を操作するには、どのようなコードを書けばいいのかを調べていらしたのでしょう。

図形のテキストを取得するサンプルマクロ

新規のWord文書に、四角形などの図形を浮動オブジェクトとして挿入し、何らかの文字列を入力しておいてから以下のWordマクロを実行してください。

Sub WordVBAで図形のテキストを取得する()

　Dim shp As Shape
　Set shp = ActiveDocument.Shapes(1)
　
　Dim txt As String
　txt = shp.TextFrame.TextRange.Text

　MsgBox Left(txt, Len(txt) - 1)
　
End Sub

ActiveDocumentプロパティで取得したDocumentオブジェクトのShapesプロパティを使って、Word文書内の全図形を表すShapesコレクションを取得して、

Shapesコレクションの既定メンバーであるItemメソッドで取得したShapeオブジェクトを

変数shpに代入しています。

　Dim shp As Shape
　Set shp = ActiveDocument.Shapes(1)

その後、Shape.TextFrameプロパティで取得したTextFrameオブジェクトに用意されているTextRangeプロパティを使って、

WordのRangeオブジェクトを取得し、Range.Textプロパティで図形内のテキスト（文字列）を取得しています。

　Dim txt As String
　txt = shp.TextFrame.TextRange.Text

この状態は、末尾に段落記号が含まれているため、VBAのLeft関数とLen関数を使って最後の1文字を削除してメッセージボックスに表示しています。

　MsgBox Left(txt, Len(txt) - 1)

Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編

伊藤潔人 2021-02-17

［スポンサードリンク］

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

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

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

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

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

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

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

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

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

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

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

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

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

「Shape・図形」の記事一覧