2 moduri de a obține rapid texte alternative de imagini, forme, tabele, diagrame, SmartArt Grafice sau alte obiecte

În acest articol, vă vom expune 2 moduri de a obține rapid texte alternative de imagini, forme, tabele, diagrame, SmartArt grafice sau alte obiecte din documentul Word.

Uneori, obiectele precum formele, imaginile inserate în documentul dvs. conțin texte alternative. Ele ajută la explicarea detaliilor unui obiect. Cu toate acestea, aceste texte nu se arată direct. În schimb, trebuie să faceți clic dreapta pe un obiect. Și alegeți „Format Object” pentru a deschide caseta „Format Shape”. Apoi faceți clic pe „Alt Text” pentru a vedea informații precum „Titlu” și „Descriere”.

Acest lucru este greoi și nu este suficient de intuitiv. Prin urmare, am dori să vă oferim două metode mai rapide pentru a vedea sau a insera textele alternative ale obiectelor în document.

Metoda 1: Vedeți textele alternative ale tuturor obiectelor

Pentru referință, avem tendința de a face acest lucru în mod macro.

1. În primul rând, apăsați „Alt+ F11” în Word pentru a declanșa editorul VBA.
2. Apoi creați un nou modul în proiectul „Normal”. Pentru a face acest lucru, faceți clic pe „Normal”.
3. Apoi faceți clic pe fila „Inserare” și alegeți „Modul” din meniul său vertical.
4. Faceți dublu clic pe noul modul pentru a deschide spațiul de editare din partea dreaptă.
5. Lipiți acolo următoarele coduri:

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. Nu în ultimul rând, faceți clic pe butonul „Run”.

Veți vedea căsuța de mesaj apare una după alta. Veți obține textul alternativ al fiecărui obiect din documentul dvs.

Iată un exemplu:

Metoda 2: Introduceți textul alternativ în document

Acum există un alt caz care este extragerea și inserarea textului alternativ al unui obiect în document prin VBA. În acest fel, textele alternative funcționează foarte asemănător cu „Legenda” pentru figuri și tabele.

Iată cum o facem:

1. În primul rând, urmați pașii exacti din metoda 1 pentru a instala și rula o macrocomandă.
2. În al doilea rând, lipiți această macrocomandă:

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

Verificați rezultatul:

Gestionați cazurile de documente corupte

Ați dat vreodată peste un docx deteriorat? Dacă este adevărat, probabil că înțelegeți senzația de zgâriere a părului și de a sări după soluții pentru a vizita din nou documentele inaccesibile. Acum, pentru a vă salva de o astfel de situație cu inima zdrobită, vă recomandăm să luați un instrument de reparare competent pentru a recupera lost de date.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com