Sub Demo()
Application.ScreenUpdating = False
Dim Para As Paragraph
For Each Para In ActiveDocument.Paragraphs
  With Para.Range
    .Characters.First.InsertBefore "<" & .Style & ">"
    .Characters.Last.InsertBefore "</" & .Style & ">"
  End With
Next
Application.ScreenUpdating = True
End Sub