Sub TestX()
    Dim intI As Integer
    
    For intI =  1  To ActiveDocument.BuiltInDocumentProperties(wdPropertyPages).Value
        With ActiveDocument
            .GoTo What:=wdGoToPage, Name:="""" & intI & """"
        End With
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "Иванов"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        With Selection
            .Find.Execute
            .EndKey Unit:=wdLine
            .InlineShapes.AddPicture FileName:= _
              "D:\1\Example05.JPG", _
              LinkToFile:=False, _
              SaveWithDocument:=True
        End With
    Next
End Sub