Sub SelectNextURL()
    Dim rng As Range
    Dim startPos As Long
    Dim endPos As Long
    Dim doc As Document
    Dim urlPattern As String
    Dim found As Boolean
    
    Set doc = ActiveDocument
    
    'URLs starting with http or https
    urlPattern = "(https?://[^\s<>""']+)"
    
    ' Use the Find object
    Set rng = doc.Content
    With rng.Find
        .ClearFormatting
        .Text = ""
        .MatchWildcards = True
        ' Word wildcards: http[s]:// followed by any non-space characters
        .Text = "(http*)(://*)([! ^13^32^9^t<>'""]@)"
        found = .Execute
    End With
    
    If found Then
        rng.Select
        MsgBox "URL found and selected: " & rng.Text, vbInformation
    Else
        MsgBox "No URL found.", vbExclamation
    End If
End Sub

Sub MakeLinksMP()
Application.ScreenUpdating = False
With ActiveDocument
  With .Range
    With .Find
      .Text = "https://[! ]{1,}"
      .Execute
    End With
If Not .Find.found Then MsgBox "Not found"
    Do While .Find.found
      .Duplicate.AutoFormat
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End With
Application.ScreenUpdating = True
End Sub

Sub MakeLinks()
'Adapted from code posted by Paul Edstein
  Application.ScreenUpdating = False
  With ActiveDocument
    With .Range
      With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "<[0-9A-ÿ.\-]{1,}\@[0-9A-ÿ\-.]{1,}"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
      End With
      Do While .Find.Execute
        .Duplicate.AutoFormat
        .Collapse wdCollapseEnd
      Loop
    End With
    With .Range
      With .Find
        .Text = "http://[! ]{1,}"
        .MatchWildcards = True
      End With
      Do While .Find.Execute
        'If you want to remove the "http://" part, unstet next line.
        '.Text = Mid(.Text, 8, Len(.Text) - 7)
        .Duplicate.AutoFormat
        .Collapse wdCollapseEnd
      Loop
    End With
  End With
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub