Sub Demo()
Dim RngDoc As Range, RngOut As Range, Fld As Field
With ActiveDocument
  .Range.InsertAfter vbCr & Chr(12)
  Set RngDoc = .Range
  RngDoc.End = RngDoc.End - 2
  Set RngOut = .Characters.Last
  For Each Fld In RngDoc.Fields
    Select Case Fld.Type
      Case wdFieldData, wdFieldDatabase, wdFieldDDE, wdFieldDDEAuto, wdFieldImport, _
        wdFieldInclude, wdFieldIncludePicture, wdFieldIncludeText, wdFieldRefDoc
        With RngOut
          .InsertAfter vbCr
          .Characters.Last.Text = Fld.LinkFormat.SourceFullName
        End With
      Case wdFieldHyperlink
        With RngOut
          .InsertAfter vbCr
          .Characters.Last.FormattedText = Fld.Result.FormattedText
        End With
    End Select
  Next
  RngOut.Collapse wdCollapseStart
  RngOut.Text = "External Links"
End With
End Sub