Option Explicit

Sub SelectAddress()
'Graham Mayor - https://www.gmayor.com - Last updated - 20 May 2023
Dim oPara As Paragraph
Dim oRng As Range
Dim lPara As Long
Dim bTop As Boolean
    Set oRng = ActiveDocument.Range
    oRng.Collapse 1
    For lPara = 1 To ActiveDocument.Paragraphs.Count
        Set oPara = ActiveDocument.Paragraphs(lPara)
        If Len(oPara.Range) > 4 Then
            oRng.End = oPara.Range.End
        Else
            Exit For
        End If
    Next lPara
    If oRng.Paragraphs.Count > 2 Then
        bTop = True
        oRng.Select
        GoTo lbl_Exit
    End If
    
    If Not bTop = True Then
        Set oRng = ActiveDocument.Range
        oRng.Collapse 0
        For lPara = ActiveDocument.Paragraphs.Count To 1 Step -1
            Set oPara = ActiveDocument.Paragraphs(lPara)
            If Len(oPara.Range) > 4 Then
                oRng.Start = oPara.Range.Start
            Else
                Exit For
            End If
        Next lPara
        If oRng.Paragraphs.Count > 2 Then
            oRng.Select
        End If
    End If
    
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Exit Sub
End Sub