This will tag any non-heading selected paragraphs
Code:
Sub TagParas()
Dim aPar As Paragraph
For Each aPar In Selection.Paragraphs
If aPar.Range.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText Then
aPar.Range.InsertBefore "<np>"
End If
Next aPar
End Sub