Sub Replace_Pic()
    
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    With selection.Find
       .text = "^g"
       .MatchWildcards = False
       .Execute
       If .found Then
          selection.InlineShapes.AddPicture filename:= _
            "d:\Desktop\2.jpg", LinkToFile:=False, _
            SaveWithDocument:=True
       End If
    End With
End Sub