2 Möglichkeiten, schnell die Alternativtexte von Bildern, Formen, Tabellen, Diagrammen, SmartArt-Grafiken oder anderen Objekten zu erhalten

In diesem Artikel zeigen wir Ihnen zwei Möglichkeiten, wie Sie schnell die Alternativtexte von Bildern, Formen, Tabellen, Diagrammen, SmartArt-Grafiken oder anderen Objekten in einem Word-Dokument erhalten.

Manchmal enthalten Objekte wie Formen und Bilder, die in Ihr Dokument eingefügt werden, alternative Texte. Sie helfen, die Details eines Objekts zu erklären. Diese Texte zeigen sich jedoch nicht direkt. Stattdessen müssen Sie mit der rechten Maustaste auf ein Objekt klicken. Wählen Sie "Objekt formatieren", um das Feld "Form formatieren" zu öffnen. Klicken Sie anschließend auf "Alt Text", um Informationen wie "Titel" und "Beschreibung" anzuzeigen.

Dies ist umständlich und nicht intuitiv genug. Aus diesem Grund möchten wir Ihnen zwei schnellere Methoden anbieten, um alternative Texte von Objekten in einem Dokument anzuzeigen oder einzufügen.

Methode 1: Siehe die alternativen Texte aller Objekte

Als Referenz tendieren wir dazu, dies auf Makro-Weise zu tun.

1. Drücken Sie zunächst in Alt „Alt + F11“, um den VBA-Editor auszulösen.
2. Erstellen Sie als Nächstes ein neues Modul im Projekt "Normal". Klicken Sie dazu auf „Normal“.
3. Klicken Sie dann auf die Registerkarte "Einfügen" und wählen Sie "Modul" in seinem Dropdown-Menü.
4. Doppelklicken Sie auf das neue Modul, um den Bearbeitungsbereich auf der rechten Seite zu öffnen.
5. Fügen Sie dort die folgenden Codes ein:

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

6. Klicken Sie zu guter Letzt auf die Schaltfläche "Ausführen".

Sie werden sehen, dass nacheinander ein Meldungsfeld auftaucht. Sie erhalten den alternativen Text jedes Objekts in Ihrem Dokument.

Ein Beispiel:

Methode 2: Fügen Sie den alternativen Text in das Dokument ein

Nun gibt es einen anderen Fall, bei dem der alternative Text eines Objekts über VBA extrahiert und in ein Dokument eingefügt wird. Auf diese Weise funktionieren die alternativen Texte sehr ähnlich wie die „Beschriftung“ für Abbildungen und Tabellen.

So machen wir das:

1. Befolgen Sie zunächst die genauen Schritte in Methode 1, um ein Makro zu installieren und auszuführen.
2. Zweitens fügen Sie dieses Makro ein:

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

Überprüfen Sie das Ergebnis:

Behandeln Sie Instanzen beschädigter Dokumente

Bist du jemals auf einen gestoßen? beschädigte docxWenn das stimmt, kennen Sie sicher das Gefühl, sich die Haare zu raufen und verzweifelt nach einer Lösung zu suchen, um wieder auf die unzugänglichen Dokumente zugreifen zu können. Damit Ihnen diese frustrierende Situation erspart bleibt, empfehlen wir Ihnen ein professionelles Reparaturtool zur Datenwiederherstellung.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel reparieren und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX