vba - 在 word vba 中查找标题文本并选择下一个形状或内联形状

Question

在我下面的代码中，我试图在选定的文本之后找到下一个出现的形状或内联形状。
但没有任何效果......请，我需要帮助：

With Selection.Find
.Text = Text
.Replacement.Text = ""
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = match_case
.MatchWholeWord = match_whole_word
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
    Do While f.Execute = True
            s.Next(Unit:=wdParagraph, Count:=1)
            r = s.Range
            If s.ShapeRange.Count > 0 Then
                r1.ShapeRange.Select
            Exit Do
            End If
    Loop

标签： vbams-word