Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim arrParts() As String
  Set oRng = Selection.Range
  With oRng
    arrParts() = Split(.Text, " at the date of")
    .Text = arrParts(0)
    .Font.Bold = True
    .Font.Italic = True
    .Collapse wdCollapseEnd
    .Text = arrParts(1)
    .Font.Bold = False
    .Font.Italic = False
  End With
lbl_Exit:
  Exit Sub
End Sub