Sub StyleItUp()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<CN>"
    .Replacement.Style = "Heading 1"
    .Execute Replace:=wdReplaceAll
    
    .Text = "<CT>"
    .Replacement.Style = "Heading 2"
    .Execute Replace:=wdReplaceAll
    
    .Text = "<TX>"
    .Replacement.Style = "Body Text"
    .Execute Replace:=wdReplaceAll
    'repeat above pattern for all paragraph styles
    
    'now search for font attributes and apply character styles
    .Text = ""
    .Font.Bold = True
    .Replacement.ClearFormatting
    .Replacement.Style = "Strong"
    .Execute Replace:=wdReplaceAll
    
    .ClearFormatting
    .Font.Italic = True
    .Replacement.ClearFormatting
    .Replacement.Style = "Emphasis"
    .Execute Replace:=wdReplaceAll
    
  End With
End Sub