Cacher is the code snippet organizer for pro developers

Application.ScreenUpdating = False

    Dim strtemp, year, vol, page As String
    Dim arr() As String
    Dim count, n As Long
    count = 0
    Dim myrange As Range
ActiveDocument.StoryRanges(wdEndnotesStory).Select
Set myrange = ActiveDocument.StoryRanges(wdEndnotesStory)

With Selection.Find
  .Text = "[a-z]. [A-Za-z]{1,}[!^13,]@[0-9]{4}"
  .MatchWildcards = True
  Do
  .Execute
  If Not .Found Then
  Exit Do
  Else
  Selection.Collapse wdCollapseStart
 Selection.MoveRight wdCharacter, 2
 Selection.MoveEndUntil ("0123456789")
           If InputBox("Is this ncbi?", "NCBI", "yes", 300, 300) = "yes" Then

  Selection.Range.Italic = -1
End If
 
 Selection.Collapse wdCollapseEnd
  End If
  Loop
End With
    'MsgBox "Totally replace " & count & " times", vbInformation
    Erase arr

    ActiveWindow.View.ShowRevisionsAndComments = True