Here's an article with a couple suggestions:
http://word.mvps.org/FAQs/General/PrintDocList.htm
Also, here's a macro you can use in Word for this task:
Sub ListFolderContents()
'Macro created by Beth Melton
Dim NewDoc As Document
Dim DocList As String, DocDir As String
Dim Msg As String, Msg2 As String, Title As String
Dim MsgType As Integer
Msg = "List Folder Contents cancelled"
Msg2 = "No documents found in selected folder"
Title = "Folder Contents"
MsgType = vbInformation
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
DocDir = .directory
DocDir = Replace(DocDir, Chr(34), "")
DocList = Dir(DocDir & "*.*")
Set NewDoc = Documents.Add
With Selection
.TypeText CurDir & ":" & vbCr
.InsertBreak Type:=wdSectionBreakContinuous
End With
Do Until DocList = ""
NewDoc.Range.InsertAfter DocList & vbCr
DocList = Dir()
Loop
If NewDoc.Characters.Count = 1 Then
MsgBox Msg2, MsgType, Title
Exit Sub
End If
NewDoc.Sections(2).PageSetup.TextColumns.Add _
Width:=InchesToPoints(3)
ActiveWindow.ActivePane.View.Type = wdPageView
Set NewDoc = Nothing
Else
MsgBox Msg, MsgType, Title
End If
End With
End Sub
--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.
~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP
Word FAQ:
http://mvps.org/word
TechTrax eZine:
http://mousetrax.com/techtrax/
MVP FAQ site:
http://mvps.org/