Format paragraphs that start with certain words?

[gmaxey]

Simplistic, but should get the job done:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 4/24/2018
Dim oPar As Paragraph
  For Each oPar In ActiveDocument.Range.Paragraphs
    If Trim(oPar.Range.Words(1)) Like "[MTWFS]*day" Then
      oPar.Range.Font.Bold = True
      oPar.KeepWithNext = True
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub