vbscript 禁止出现网址中带有sci-hub.tw网址

Posted 2021-05-21

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