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

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

编辑：HERS我想发生什么： 这个：

TO：

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