Как мне найти родственника по диапазону слов в vba?

Question

Я использую vba для доступа к текстовому документу. Я перебираю все 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

Эти подпункты находят все iShapes в активном документе, перемещают выделение вниз и распечатывают текст.