Skip to content

Instantly share code, notes, and snippets.

@kerrypnx
Created March 25, 2019 10:35
Show Gist options
  • Save kerrypnx/1e606148796ae667a4b2d6d4aae75f86 to your computer and use it in GitHub Desktop.
Save kerrypnx/1e606148796ae667a4b2d6d4aae75f86 to your computer and use it in GitHub Desktop.
Sub findsciHub()
With Selection.Find
.ClearFormatting
.text = "sci-hub.tw"
.MatchWildcards = False
Do
.Execute
If .Found Then
Selection.Range.comments.add Selection.Range, "sci-hub.tw is forbidden in paper, please change."
Else
Exit Do
End If
Loop
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment