Hello Brian,
Here are the two macros called into play by the one that I posted last week. It’s worked for me for about 20 years now, but suddenly quit. Thanks in advance for your help!

Sub SentenceLeft()
'
' SentenceLeft Macro
'
'
Selection.MoveLeft Unit:=wdSentence, Count:=1
End Sub


Sub CapitalizeNextLetter()
'
' CapitalizeNextLetter Macro
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdToggleCase
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

I’ve attached an illustration of the desired effect.

By the way, I tried to find a way to get the following joke to work for this illustration, but was unsuccessful:
My wife: You need to do more chores around the house. Me: Can we change the subject? My wife: Ok. More chores around the house need to be done by you.

Attached Images

continuous-motion.jpg (90.7 KB, 37 views)