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