List part of multiple hyperlinks in .txt file

[saltire1963]

I'm trying to list the multiple hyperlinks in a Word 2016 document in a .txt file. To be more specific, I'm trying to list the 36th character from the left to the 75th character of each hyperlink. The code below is close, because I did have it working earlier, but for some reason I must have changed something without realizing it. Anyone help pls?

Dim fso As FileSystemObject ' Declare a FileSystemObject.
Dim stream As TextStream ' Declare a TextStream.
Sub ListHyperlinks()
    
    Dim i As Integer
    Dim Rng As Range
    Dim strMid As String


    Set fso = New FileSystemObject ' Create a FileSystemObject.
    Set stream = fso.CreateTextFile("C:\Test1.txt", True)  

    Application.ScreenUpdating = False
    
    With ActiveDocument
        For i = .Hyperlinks.Count To 1 Step -1
            With .Hyperlinks(i)
                Set Rng = .Range
                strMid = Mid(Rng, 36, 75)
                stream.WriteLine (strMid)
            End With
        Next
    End With
    
    ' Close the file.
    stream.Close

    Application.ScreenUpdating = True
    
End Sub

I should add: when I step through the code above I get Rng = "
" and srtMid = "" , the rectangle shape has now taken the place of the text I used to get

[macropod]

Try:

Sub ListHyperlinks()
Dim i As Long, strOut As String, f As Long
Const StrFlOut As String = "C:\Test1.txt"
With ActiveDocument
  For i = 1 To .Hyperlinks.Count
    strOut = strOut & Mid(.Hyperlinks(i).Address, 36, 75) & vbCr
  Next
End With
f = FreeFile()
Open StrFlOut For Output As #f
Print #f, strOut
Close #f
End Sub

[saltire1963]

Paul, sorry for late reply. I modified your suggestion to the code below and it worked a treat, many thanks.

Dim fso As FileSystemObject ' Declare a FileSystemObject.
Dim stream As TextStream ' Declare a TextStream.
Sub Demo()
    
    Dim i As Long, Rng As Range
    Dim strMid As String

    Set fso = New FileSystemObject ' Create a FileSystemObject.
    Set stream = fso.CreateTextFile("C\Test1.txt", True)  ' Create a TextStream.
    
    Application.ScreenUpdating = False
    
    With ActiveDocument
        For i = .Hyperlinks.Count To 1 Step -1
            strMid = Mid(.Hyperlinks(i).Address, 36, 75) '& vbCr
            stream.WriteLine (strMid)
        Next
    End With
    
    ' Close the file.
    stream.Close

    Application.ScreenUpdating = True
    
End Sub