Cacher is the code snippet organizer for pro developers

Sub artitleTypeAllowed()
Dim arr As String
arr = "Addendum; Article; Book Review; Case report; Comment; Commentary; Communication; Concept Paper ; Correction  ; Conference Report/Meeting Report; Discussion; Editorial; Essay; Letter; New book received; Opinion; Project Report; Reply; Retraction; Review; Short Note; Technical Note; Brief Report; Hypothesis; Interesting Images; Erratum; Obituary; Expression of Concern; Data Descriptor; Viewpoint; Perspective; Protocol; Benchmark; Tutorial; Software; Creative"
Selection.HomeKey wdStory
Selection.MoveEndUntil vbCrLf

    If InStr(arr, Selection.Text) = 0 Then
        Selection.Range.HighlightColorIndex = wdYellow
        ActiveDocument.Paragraphs(1).Range.comments.Add ActiveDocument.Paragraphs(1).Range, "This artice type is not allowed"
    End If
End Sub