Substitua o texto por imagens no Word usando o VBA e evite a caixa de diálogo

Question

Eu tenho tentado substituir um texto específico por uma imagem relacionada, mas não é possível impedir que a palavra 'chegou ao fim do documento, começar do começo' (pressione OK para manter o código), apesar de Find.Wrap = wdFindContinue .

Eu tentei a linha continuar em vários lugares, mas nenhum resolveu. Eu sou um usuário muito básico, sem pistas sobre loops ou intervalo de configuração do documento.

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