2 načina da brzo dobijete alternativne tekstove slika, oblika, tabela, grafikona, SmartArt Grafika ili drugi objekti

U ovom članku ćemo vam izložiti 2 načina da brzo dođete do alternativnih tekstova slika, oblika, tabela, grafikona, SmartArt grafike ili druge objekte u Word dokumentu.

Ponekad objekti poput oblika, slika umetnutih u vaš dokument sadrže alternativni tekst. Oni pomažu da se objasne pojedinosti o objektu. Međutim, ovi tekstovi se ne pokazuju direktno. Umjesto toga, morate kliknuti desnim klikom na objekt. I odaberite “Format Object” da otvorite okvir “Format Shape”. Zatim kliknite na “Alt Text” da biste vidjeli informacije kao što su “Naslov” i “Opis”.

Ovo je glomazno i ​​nedovoljno intuitivno. Stoga želimo da vam ponudimo 2 brža metoda da vidite ili umetnete alternativni tekst objekata u dokument.

Metoda 1: Pogledajte alternativne tekstove svih objekata

Za vašu referencu, mi to radimo na makro način.

1. Prvo, ako sve, pritisnite “Alt+ F11” u Wordu da pokrenete VBA editor.
2. Zatim kreirajte novi modul u projektu “Normal”. Da biste to učinili, kliknite na "Normalno".
3. Zatim kliknite karticu "Umetni" i odaberite "Modul" na padajućem izborniku.
4. Dvaput kliknite na novi modul da otvorite prostor za uređivanje na desnoj strani.
5. Tamo zalijepite sljedeće kodove:

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. Na kraju, ali ne i najmanje važno, kliknite na dugme „Pokreni“.

Vidjet ćete da se okviri za poruke pojavljuju jedan za drugim. Dobićete alternativni tekst svakog objekta u vašem dokumentu.

Evo primera:

Metoda 2: Umetnite alternativni tekst u dokument

Sada postoji još jedan slučaj koji je izdvajanje i umetanje alternativnog teksta objekta u dokument preko VBA. Na ovaj način, alternativni tekstovi funkcionišu veoma slično kao "Naslov" za slike i tabele.

Evo kako to radimo:

1. Prvo, slijedite tačne korake u metodi 1 da biste instalirali i pokrenuli makro.
2. Drugo, zalijepite ovaj makro:

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

Provjerite rezultat:

Rukovati slučajevima oštećenih dokumenata

Da li ste ikada naleteli na a oštećen docx? Ako je istina, vjerovatno razumijete osjećaj češanja po kosi i skakanja u potrazi za rješenjima da ponovo posjetite nepristupačne dokumente. Sada, da vas spasimo od takve situacije slomljenog srca, preporučujemo vam da uzmete iskusan alat za popravak kako biste vratili lost podataka.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti Excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com