2 maneiras de obter rapidamente os textos alternativos de imagens, formas, tabelas, gráficos, SmartArt Gráficos ou outros objetos

Compartilhe agora:

Neste artigo, mostraremos 2 maneiras de obter rapidamente os textos alternativos de imagens, formas, tabelas, gráficos, SmartArt gráficos ou outros objetos no documento do Word.Obtenha os textos alternativos de imagens, formas, tabelas, gráficos, SmartArt Gráficos ou outros objetos

Às vezes, objetos como formas e imagens inseridos em seu documento contêm textos alternativos. Eles ajudam a explicar os detalhes de um objeto. No entanto, esses textos não se mostram diretamente. Em vez disso, você deve clicar com o botão direito do mouse em um objeto. E escolha “Format Object” para abrir a caixa “Format Shape”. Em seguida, clique em “Alt Text” para ver informações como “Título” e “Descrição”.Clique em "Texto alternativo"

Isso é complicado e não é intuicionista o suficiente. Portanto, gostaríamos de oferecer a você 2 métodos mais rápidos para ver ou inserir os textos alternativos dos objetos no documento.

Método 1: Veja os Textos Alternativos de todos os Objetos

Para sua referência, tendemos a fazer isso de maneira macro.

  1. Primeiro, se tudo, pressione “Alt+ F11” no Word para acionar o editor VBA.
  2. Em seguida, crie um novo módulo no projeto “Normal”. Para isso, clique em “Normal”.
  3. Em seguida, clique na guia “Inserir” e escolha “Módulo” no menu suspenso.Clique em "Normal"->Clique em "Inserir"->Clique em "Módulo"
  4. Clique duas vezes no novo módulo para abrir o espaço de edição no lado direito.
  5. Cole os seguintes códigos lá:
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 ("Não há texto Alt.") End If Next For Each objShape In .InlineShapes If objShape.AlternativeText <> "" Then MsgBox ("Title: " & objShape.Title & vbNewLine & "Descrição:" & vbNewLine & objShape.AlternativeText) Else MsgBox ("Não há texto Alt.") End If Next For Each objShape In .Tables If objShape.Descr <> "" Then MsgBox ("Title: " & objShape. Title & vbNewLine & "Description:" & vbNewLine & objShape.Descr) Else MsgBox ("Não há texto Alt.") End If Next End With End Sub
  1. Por último, mas não menos importante, clique no botão “Executar”.Colar Macro->Clique em "Executar"

Você verá a caixa de mensagem aparecendo uma após a outra. Você obterá o texto alternativo de cada objeto em seu documento.

Aqui está um exemplo:Caixa de mensagem mostrando texto alternativo detalhado

Método 2: Inserir o Texto Alternativo no Documento

Agora existe outro caso que é extrair e inserir o texto alternativo de um objeto no documento via VBA. Dessa forma, os textos alternativos funcionam de forma muito parecida com a “Legenda” para figuras e tabelas.

Aqui está como fazemos:

  1. Em primeiro lugar, siga as etapas exatas do método 1 para instalar e executar uma macro.
  2. Em segundo lugar, cole esta macro:
Sub ShowAltTextBelowPic() Dim objDoc As Document Dim objShape As Object Set objDoc = ActiveDocument Com objDoc Para Cada objShape In .Shapes objShape.ConvertToInlineShape Próximo Para Cada 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

Verifique o resultado:Textos alternativos

Lidar com instâncias de documentos corrompidos

Você já se deparou com um documento danificado? Se for verdade, você provavelmente entende a sensação de coçar o cabelo e esperar por soluções para visitar os documentos inacessíveis novamente. Agora, para salvá-lo de tal situação de coração partido, recomendamos que você pegue uma ferramenta de reparo proficiente para recuperar lost dados.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com

Compartilhe agora:

Comentários estão fechados.