Word VBAでShape内のテキストを操作する方法

みなさん、こんにちは。今日は、WordのVBAを使って、図形内のテキストをどのように操作するかをお話しします。特に、テキストボックスや図形の中にある文字列の取得や編集について、初心者の方にもわかりやすく解説しますね。

はじめにShapeとTextFrameとは？
図形内のテキストを取得する方法
図形内のテキストを編集する方法
よくある質問や疑問
1. Q1: 図形がグループ化されている場合、個々のテキストにアクセスできますか？
2. Q2: 図形内のテキストのフォントや色を変更できますか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめにShapeとTextFrameとは？

Wordのイメージ

まず、Wordで図形やテキストボックスを操作する際に重要な概念として、ShapeとTextFrameがあります。簡単に言うと、Shapeは図形そのものを指し、TextFrameはその中に含まれるテキストの枠組みを指します。ですので、図形内のテキストを操作するには、まずShapeを取得し、その中のTextFrameを通じてテキストにアクセスする必要があります。

図形内のテキストを取得する方法

では、具体的にどのように図形内のテキストを取得するのか、見ていきましょう。以下の手順で行います。

Shapeオブジェクトを取得する。
そのTextFrameプロパティを使って、TextRangeオブジェクトを取得する。
TextRangeオブジェクトのTextプロパティで、テキストを取得する。

具体的なコードは以下のようになります。

vba

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

    Dim shp As Shape

    Dim txt As String

    For Each shp In ActiveDocument.Shapes

        If shp.Type = msoTextBox Then

            txt = shp.TextFrame.TextRange.Text

            Debug.Print txt

        End If

    Next

End Sub

このコードでは、文書内のすべての図形をチェックし、その中でテキストボックス（msoTextBox）であるもののテキストを取得し、イミディエイトウィンドウに表示しています。

図形内のテキストを編集する方法

次に、図形内のテキストを編集する方法を見てみましょう。例えば、特定の文字列を別の文字列に置換する場合、以下のようにします。

vba

Sub 図形内のテキストを置換する()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        If shp.TextFrame.HasText Then

            With shp.TextFrame.TextRange.Find

                .Text = "置換前の文字列"

                .Replacement.Text = "置換後の文字列"

                .Execute Replace:=wdReplaceAll

            End With

        End If

    Next

End Sub

このコードでは、すべての図形をチェックし、テキストを持つ図形内で特定の文字列を探し、それを新しい文字列に置き換えています。

よくある質問や疑問

Q1: 図形がグループ化されている場合、個々のテキストにアクセスできますか？

はい、可能です。グループ化された図形内の各図形にアクセスするには、再帰的にGroupItemsコレクションを処理する必要があります。

vba

Sub グループ化された図形内のテキストを取得する()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        Call GetTextFromShape(shp)

    Next

End Sub

Sub GetTextFromShape(aShape As Shape) Dim InShape As Shape If aShape.Type = msoGroup Then For Each InShape In aShape.GroupItems Call GetTextFromShape(InShape) Next InShape Else If aShape.TextFrame.HasText Then Debug.Print aShape.TextFrame.TextRange.Text End If End If End Sub

この方法で、グループ化された図形内のテキストにもアクセスできます。

Q2: 図形内のテキストのフォントや色を変更できますか？

はい、できます。TextRangeオブジェクトのFontプロパティを使用して、フォントの種類やサイズ、色などを変更できます。

vba

Sub 図形内のテキストのフォントを変更する()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        If shp.TextFrame.HasText Then

            With shp.TextFrame.TextRange.Font

                .Name = "メイリオ"

                .Size = 12

                .Color = RGB(255, 0, 0)

            End With

        End If

    Next

End Sub

このコードでは、すべての図形内のテキストのフォントを「メイリオ」、サイズを12、色を赤に設定しています。