Change:
strFile = Dir(strFolder & "\*.doc", vbNormal)
to:
strFile = Dir(strFolder & "\*.*", vbNormal)

After:
.InsertAfter vbCr
insert:
.Paragraphs.Last.Style = "Heading " & h + 1

Change:
Set Rng = .Hyperlinks.Add(.Characters.Last, "/../" & strRelPath & strFile, , , Split(strFile, ".doc")(0)).Range
to:
Set Rng = .Hyperlinks.Add(.Characters.Last, "/../" & strRelPath & strFile, , , strFile).Range

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]