word vba 选择正文中非表格图片标题的文字

在Word VBA (Visual Basic for Applications) 中，如果你想选择文档中非表格图片的标题文字，你需要遍历每个图片，并找到其周围的文本框（如果有的话），通常图片的标题会被包含在一个文本框中。以下是一个简单的步骤描述：

1. 首先，获取文档的所有图片对象 (`ActiveDocument.InlineShapes`)，包括嵌入和链接的图片。

Dim img As InlineShape
For Each img In ActiveDocument.InlineShapes
    ' 检查是否为图片而不是表格
    If img.Type = msoPicture Then
        ' 继续处理图片
    End If
Next img

2. 对于每个图片，检查它是否有文本框（`HasTextFrame` 属性）。如果有，获取文本框内容 (`TextBox.TextRange`)。

If img.HasTextFrame Then
    Dim txtRange As TextRange
    Set txtRange = img.TextFrame.TextRange
    ' 现在你可以访问并操作 txtRange 内的内容，例如选择文字
    txtRange.Select ' 或者 txtRange.Collapse Direction:=wdCollapseEnd ' 如果只想选标题部分
End If

请注意，这只是一个基本的示例，实际操作可能会因为图片的不同布局和标题呈现方式而有所变化。如果你需要精确地定位和选择标题，可能需要分析文本框内的特定标签、样式或其他特征。