VBA WORD：匹配段落后跟图片？

Question

向继续阅读我的问题的人道歉，这些问题彼此相似。 我刚刚开始，所以最终会有一些东西会点击。

好的，我想消除形状之间的任何间隙（不是单词/字母）。 即，如果我在连续线上有两个小形状，我想删除换行符。

我试过这个：

Sub RemovePicGaps()
    wrdDoc.Content.Select

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .Text = "^13([!A-Za-z]@)^13"
        .Replacement.Text = "\1^p"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = True
    End With

GoHere:
    Selection.Find.Execute Replace:=wdReplaceAll
    If Selection.Find.Execute = True Then
        GoTo GoHere
    End If

End Sub

但它与我想要的不匹配，而且如果可能的话，我宁愿有一些特定于图片的东西（而不仅仅是“非字母”）。

编辑：她我想要发生的事情：这个：

至：

对于那些感兴趣的人，这些是口腔解剖结构的图片。 非常令人兴奋的无聊。