写真、形、表、チャート、Smarの代替テキストをすばやく取得する2つの方法tArtグラフィック、またはその他のオブジェクト

ワードソリューション 2025 年 9 月 28 日

この記事では、写真、図形、表、グラフ、Smarの代替テキストをすばやく取得する2つの方法を紹介します。tArtグラフィック、またはWord文書内の他のオブジェクト。

ドキュメントに挿入された図形や画像などのオブジェクトに代替テキストが含まれている場合があります。オブジェクトの詳細を説明するのに役立ちます。ただし、これらのテキストは直接表示されません。代わりに、オブジェクトを右クリックする必要があります。そして、「フォーマットオブジェクト」を選択して「フォーマットシェイプ」ボックスを開きます。次に、「タイトル」や「説明」などの情報を表示するには、「代替テキスト」をクリックします。

これは面倒で、直感的ではありません。したがって、ドキュメント内のオブジェクトの代替テキストを表示または挿入するための2つのより迅速な方法を提供したいと思います。

方法1：すべてのオブジェクトの代替テキストを表示する

参考までに、私たちはマクロ的な方法でそれを行う傾向があります。

まず、Wordで「Alt + F11」を押して、VBAエディターをトリガーします。
次に、「通常」プロジェクトで新しいモジュールを作成します。これを行うには、「通常」をクリックします。
次に、[挿入]タブをクリックし、ドロップダウンメニューで[モジュール]を選択します。
新しいモジュールをダブルクリックして、右側の編集スペースを開きます。
次のコードをそこに貼り付けます。

Sub ShowAltText() 
  Dim objDoc As Document
  Dim objShape As Object
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.AlternativeText <> "" Then
        MsgBox ("Title: " & objShape.Title & vbNewLine & "Description:" & vbNewLine & objShape.AlternativeText)
      Else
        MsgBox ("There is no Alt Text.")
      End If
    Next
 
    For Each objShape In .InlineShapes
      If objShape.AlternativeText <> "" Then
        MsgBox ("Title: " & objShape.Title & vbNewLine & "Description:" & vbNewLine & objShape.AlternativeText)
      Else
        MsgBox ("There is no Alt Text.")
      End If
    Next
 
    For Each objShape In .Tables
      If objShape.Descr <> "" Then
        MsgBox ("Title: " & objShape.Title & vbNewLine & "Description:" & vbNewLine & objShape.Descr)
      Else
        MsgBox ("There is no Alt Text.")
      End If
    Next
  End With
End Sub

最後になりましたが、「実行」ボタンをクリックしてください。

メッセージボックスが次々にポップアップします。ドキュメント内の各オブジェクトの代替テキストを取得します。

方法2：代替テキストをドキュメントに挿入する

ここで、VBAを介してオブジェクトの代替テキストを抽出してドキュメントに挿入する別のケースがあります。このように、代替テキストは図や表の「キャプション」と非常によく似ています。

これが私たちのやり方です：

まず、方法1の正確な手順に従って、マクロをインストールして実行します。
次に、このマクロを貼り付けます。

Sub ShowAltTextBelowPic()
  Dim objDoc As Document
  Dim objShape As Object
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      objShape.ConvertToInlineShape
    Next
 
    For Each objShape In .InlineShapes
      objShape.Range.InsertAfter vbNewLine & objShape.Title & vbNewLine & objShape.AlternativeText
    Next
 
    For Each objShape In .Tables
      objShape.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertAfter vbNewLine & objShape.Title & vbNewLine & objShape.Descr
    Next
 
  End With
End Sub

結果を確認します。

破損したドキュメントのインスタンスを処理する

あなたは今までに遭遇したことがあります破損したdocx？本当なら、あなたはおそらく、髪を引っ掻いたり、アクセスできないドキュメントに再びアクセスするための解決策を探したりする感覚を理解しているでしょう。今、そのような悲痛な状況からあなたを救うために、私たちはあなたがlを取り戻すために熟練した修理ツールを取ることをお勧めしますost データ。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelを修復する and pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com