vbscript 10.检测网址www.mdpi.com/link

Posted 2021-05-21

Sub supplLink()
Dim T As String
    T = "www.mdpi.com/xxx/s1, Figure S1: title, Table S1: title, Video S1: title"
    Selection.HomeKey wdStory
   
    With Selection.Find
        .ClearFormatting
        .Text = "Supplementary Materials:"
        .Font.Bold = -1
        .MatchWildcards = False
        .Replacement.Text = ""
        .Execute
        If .Found Then
            If InStr(Selection.Paragraphs(1).Range.Text, T) > 0 Then
                MsgBox "s"
            Else
                Selection.Range.HighlightColorIndex = wdRed
                Selection.comments.Add Selection.Range, "The link is wrong, please use '" + T + "' Please replace title with specific content"
            End If
        End If
    End With
    
End Sub