2种方法快速获取图片、形状、表格、图表、Smar的替代文本tArt 图形或其他对象

在本文中，我们将向您展示 2 种快速获取图片、形状、表格、图表、Smar 的替代文本的方法tArt 图形，或 Word 文档中的其他对象。

有时，插入到文档中的形状、图片等对象包含替代文本。 它们有助于解释物体的细节。 但是，这些文本不会直接显示出来。 相反，您必须右键单击一个对象。 然后选择“格式化对象”打开“格式化形状”框。 接下来单击“Alt Text”以查看“Title”和“Description”等信息。

这很麻烦而且不够直观。 因此，我们想为您提供 2 种更快捷的方法来查看或插入文档中对象的替代文本。

方法一：查看所有对象的备选文本

供您参考，我们倾向于以宏观方式进行。

1. 首先，如果全部，请在 Word 中按“Alt+F11”以触发 VBA 编辑器。
2. 接下来在“Normal”项目中创建一个新模块。 为此，请单击“正常”。
3. 然后单击“插入”选项卡并在其下拉菜单中选择“模块”。
4. 双击新建的模块，打开右侧的编辑空间。
5. 将以下代码粘贴到那里：

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. 最后但并非最不重要的一点是，单击“运行”按钮。

您将看到消息框一个接一个地弹出。 您将获得文档中每个对象的替代文本。

这是一个例子：

方法 2：将替代文本插入文档

现在还有一种情况是通过VBA将一个对象的替代文本提取并插入到文档中。 这样，替代文本的工作方式非常类似于图形和表格的“标题”。

这是我们如何做的：

1. 首先，按照方法 1 中的确切步骤安装并运行宏。
2. 其次，粘贴这个宏：

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

检查结果：

处理损坏文档的实例

你有没有遇到过 损坏的文档？ 如果属实，您可能会理解抓头发和寻找解决方案以再次访问无法访问的文档的感觉。 现在为了让您免于这种心碎的境地，我们建议您使用熟练的修复工具来找回 lost 数据。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复Excel 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com