Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrFind() As String
Dim lngIndex As Long
Dim oRng As Range
  arrFind = Split("HISTORY OF PRESENT ILLNESS:,PHYSICAL EXAM:,RADIOGRAPHS:,SOCIAL HISTORY:,FAMILY HISTORY:,REVIEW OF SYSTEM:," _
                & "BRIEF HISTORY:,CLINICAL EXAM:,ASSESSMENT AND PLAN:,IMPRESSION AND PLAN:", ",")
  For lngIndex = 0 To UBound(arrFind)
    Set oRng = ActiveDocument.Range
    With oRng.Find
      .Text = arrFind(lngIndex)
      With .Replacement
        .Text = arrFind(lngIndex)
        .Font.Bold = True
        .Font.Underline = True
      End With
      .Execute Replace:=wdReplaceAll
    End With
  Next
lbl_Exit:
  Exit Sub
End Sub