Dim intMax                  As Integer
Dim intPtr                  As Integer
Dim strDate                 As String
Dim strCategory             As String
Dim strHdr                  As String
Dim strOldCategory          As String
Dim strText                 As String
 
 
  strOldCategory = ""
 
 
  With ActiveDocument.Content
    .InsertAfter vbCrLf
    intMax = UBound(gvarTexts)
'*
'** Add texts, with formatting if appropriate.
'*
    For intPtr = 0 To intMax
      strCategory = Left(gvarTexts(intPtr), 20)
      strDate = Mid(gvarTexts(intPtr), 22, 10)
      strText = Mid(gvarTexts(intPtr), 33)
      If strCategory <> strOldCategory Then
        strOldCategory = strCategory
        strHdr = strCategory & ":" & strDate
        .InsertAfter vbCrLf & strHdr & vbCrLf
'*
'** Here something magic needs to happen to change strHdr
'** which has just been written to be Bold and Underlined!
'*
      End If
      .InsertAfter strText & vbCrLf
    Next intPtr