Sub AutomaticNumbering()
Dim manum As Field
Dim rgpara As Paragraph
Dim myRange As Range
Dim notag As Range

For Each rgpara In ActiveDocument.Paragraphs

If rgpara.Range.Style = "Text" Then
Set myRange = rgpara.Range
Set notag = myRange.Next(Unit:=wdParagraph, Count:=1)


       If notag.Style = "MNS" Then
       
        Else

        rgpara.Range.InsertParagraphAfter
            myRange.Collapse Direction:=wdCollapseEnd
            myRange.Style = "MNS"
            Set manum = ActiveDocument.Fields.Add(Range:=myRange, Type:=wdFieldAutoNumLegal, Text:="\Arabic *\e", PreserveFormatting:=True)
        End If
        
End If

Set notag = Nothing
Set myRange = Nothing
Set manum = Nothing
Set rgpara = Nothing

Next rgpara



End Sub

 If notag.Style = "MNS" Then