Sub Del_Spaces_Starting_Paras()
'In selection, delete spaces & unbr spaces starting paragraphs
'including the doc's 1st paragraph.

Dim myRng As range
    
Application.ScreenUpdating = False
  Set myRng = ActiveDocument.StoryRanges(2)
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    With myRng.Find
        .text = "[^32^s]{1;}([!^13]@^13)"
        .Replacement.text = "\1"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
Application.ScreenUpdating = True
End Sub