Dim pReg As Object
    Dim pMatches As Object
    Dim pItem As Object

    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Global = True: pReg.IgnoreCase = True
    pReg.Pattern = "http://[a-z0-9/\.]+jpg"
    Set pMatches = pReg.Execute(ThisDocument.Range.Text)
    For Each pItem In pMatches
        Debug.Print "Начало для Mid$(http://...) " & CStr(pItem.FirstIndex + 1) & " длиной=" & CStr(pItem.Length)
    Next pItem