Format paragraphs that start with certain words?

[gmaxey]

Paul,

True, and that was why I led off with "Simplistic". But, considering his description, I thought it might work for him. We could change to::

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]*[inrs]day" Then
      oPar.Range.Font.Bold = True
      oPar.KeepWithNext = True
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub