revise 9-6
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