Замените текст изображениями в Word с помощью VBA и избегайте диалогового окна

Question

Я пытался заменить определенный текст связанным изображением, но не могу остановить появление слова «конец документа, начните с начала» (нажмите ОК, чтобы сохранить код), несмотря на поиск.Wrap = wdFindContinue.

Я пробовал продолжить линию в нескольких местах, но ни одно не помогло. Я очень простой пользователь, не имею понятия о петлях или диапазоне настройки документа.

Sub InsertImages()

    With ActiveDocument
        Selection.Find.ClearFormatting

        With Selection.Find
            .Forward           = True
            .Text              = "ImageA"
            .Replacement.Text  = ""
            .Wrap              = wdFindContinue
            .Format            = False
            .MatchCase         = False
            .MatchWholeWord    = False
            .MatchWildcards    = False
            .MatchSoundsLike   = False
            .MatchAllWordForms = False
        End With

        If Selection.Find.Execute Then
            Selection.InlineShapes.AddPicture FileName: = _
            "C:\Folder1\ImageA.jpg", LinkToFile: = False, _
            SaveWithDocument: = True
        ElseIf Selection.Find.Wrap = wdFindContinue Then
        End If

        Selection.Find.ClearFormatting

        With Selection.Find
            .Forward           = True
            .Text              = "ImageY"
            .Replacement.Text  = ""
            .Wrap              = wdFindAsk
            .Format            = False
            .MatchCase         = False
            .MatchWholeWord    = False
            .MatchWildcards    = False
            .MatchSoundsLike   = False
            .MatchAllWordForms = False
        End With

        If Selection.Find.Execute Then
            Selection.InlineShapes.AddPicture FileName: = _
            "C:\Folder1\ImageY.jpg", LinkToFile: = False, _
            SaveWithDocument:   = True
            Selection.Find.Wrap = wdFindContinue
        End If

        Selection.Find.ClearFormatting

        With Selection.Find
            .Forward           = True
            .Text              = "ImageX"
            .Replacement.Text  = ""
            .Wrap              = wdFindAsk
            .Format            = False
            .MatchCase         = False
            .MatchWholeWord    = False
            .MatchWildcards    = False
            .MatchSoundsLike   = False
            .MatchAllWordForms = False
        End With

        If Selection.Find.Execute Then
            Selection.InlineShapes.AddPicture FileName: = _
            "C:\Folder1\ImageX.jpg", LinkToFile: = False, _
            SaveWithDocument: = True
        ElseIf Selection.Find.Wrap = wdFindContinue Then
        End If

    End With

End Sub