如何在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，選擇移到下來，打印文本。

[]的