Automatic Non-breaking Spaces in Dates

I agree with Jen. Typing a hard space (Ctrl+Shift+SPACE) will achieve a result. Obviously it will work for situations like Monday, February 26, 2021 as well as Mon., Feb. 26, 2021.
Word does not break lines on commas nor periods!
Using building blocks, auto-correct entries, or macros does not necessarily make it more convenient, when the existing functionality is relatively simple to use. It may be a personal preference though.

I think a macro that would process the almost-finished document to make sure that all dates have non-braking spaces, would be useful. But to work with all variations of the date formats it would have to be expanded and more complicated than the one posted above.

This issue is one of many that are addressed efficiently with PerfectIt, an inexpensive add-in for Word.

Can't you use Ctrl+Shift+space between the month and day?

Been trying for a few hours. Any way to get the month, day, and year all on the same line?

Nonbreaking space between month and date as well. Put day before month so code is actually usable for people:

Sub MonthsWithNonBreakingSpaces()
Dim sMonth As String
Dim iMonth As Integer

Selection.HomeKey unit:=wdStory
For iMonth = 1 To 12
With Selection.Find
.ClearFormatting
.Text = "([0-9])( )(" & MonthName(iMonth, False) & ")( )([0-9]{2})"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Text = "\1^s\3^s\5"
End With
.Execute Replace:=wdReplaceAll
End With
Next iMonth
End Sub

An alternative to the above macro would be one to make sure from the outset that there are no spaces in the date string where a break could occur. Below is a macro I wrote some time ago to ensure this. It inserts the date in the MS long format and then edits the inserted date to remove breaking spaces and insert the appropriate ordinal indicator. It stll works under all the latest versions of MS Word.
Although this uses tha English version of the MS long format it can easily be adapted to the american month/day/year, and added to the QAT

Public Sub InsertTheDate()
'
' Insert the Date Macro
' Macro created 17/05/00
'
If Documents.Count >= 1 Then
Dim DateType$
WordBasic.InsertField Field:="DATE @" + Chr(34) + "d MMMM yyyy" + Chr(34) + " * MERGEFORMAT"
WordBasic.WordLeft 3
WordBasic.CharRight 1, 1
WordBasic.UnlinkFields
WordBasic.CharRight 1
WordBasic.WordLeft 1
WordBasic.EditClear -1
WordBasic.Insert " "
WordBasic.WordLeft 1
WordBasic.EditClear -1
Select Case WordBasic.Day(WordBasic.Now())
Case 1, 21, 31
DateType$ = "st" + Chr(160)
Case 2, 22
DateType$ = "nd" + Chr(160)
Case 3, 23
DateType$ = "rd" + Chr(160)
Case Else
DateType$ = "th" + Chr(160)
End Select
WordBasic.Insert DateType$
WordBasic.CharLeft 3
WordBasic.CharRight 2, 1
WordBasic.Superscript
WordBasic.WordRight 3
WordBasic.Insert " "
End If
Else
MsgBox "No documents are open"
End If
End Sub

====================================

As a small bonus here is an equivalent macro for the days of the week.

Public Sub InsertDayOfTheWeek()
'Insert The Day Of The Week
' Macro created 17/05/00
'
Dim Thisday
ReDim days__$(7)
days__$(1) = "Sunday": days__$(2) = "Monday": days__$(3) = "Tuesday"
days__$(4) = "Wednesday": days__$(5) = "Thursday"
days__$(6) = "Friday": days__$(7) = "Saturday"
Thisday = WordBasic.Weekday(WordBasic.Now())
WordBasic.Insert days__$(Thisday) + " "
End Sub