You can try this subroutine.  Just change "C:\Test" to the actual target
folder where you want to hyperlink to files.  I have it set up to use the
file name as the text show which is what I think you wanted from your
question and I set it up so each link is a new paragraph.

_________________________________

Sub HyperToFldrFiles()

Dim strTgtFldr As String
Dim strShow As String

' Designate the folder where files are found
strTgtFldr = "C:\Test"

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldTarget = fso.GetFolder(strTgtFldr)

Selection.TypeParagraph

For Each myFile In fldTarget.Files
strShow = fso.GetFileName(myFile)
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
  Address:=myFile, TextToDisplay:=strShow
Selection.TypeParagraph
Next myFile

End Sub
__________________________________

Steve Yandl