如何在vba中找到单词范围的兄弟？

Question

我正在使用vba访问word文档。我正在遍历文档中的所有InlineShapes以提取图像。所有图像下方都是描述图像的文本。我想为每个图像提取文本，以便将每个图像与图像下方的文本组合起来。

如何找到直接在InlineShape之后的段落？

Answer 1

您可以使用

Sub FindIShapes()
    Dim ishp As InlineShape

    For Each ishp In ActiveDocument.InlineShapes
           ishp.Select
           Selection.MoveDown Unit:=wdLine, Count:=1

           Debug.Print Selection.Range.Text

    Next ishp

End Sub

这些子查找activedocument中的所有iShapes，将选择向下移动并打印文本。

[]的