Sub PhraseUnCapitaliseLocal()
' Paul Beverley - Version 21.07.25
' Lowercases current and successive words in full caps

Set rng = Selection.Range.Duplicate
rng.expand wdWord
rng.Collapse wdCollapseStart
With rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "[A-Z\- ]{2,}"
  .Wrap = wdFindStop
  .Replacement.Text = ""
  .Forward = True
  .MatchWildcards = True
  .MatchWholeWord = False
  .Execute
End With

rng.Text = LCase(rng.Text)
rng.Collapse wdCollapseEnd
rng.Select
End Sub