Importing Microsoft Word File Names

[jrwaguespack]

I have a file in Microsoft Word that has over 5,000 Word Documents in it. I
want to copy only the filenames into an Excel Spreadsheet, so that I will
have a list of all of the documents in an Excel Spreadsheet. If anyone has
any guidance, it would be greatly appreciated.

 

[Harald Staff]

Hi

Open the VB editor in Excel (F11 or similar).
Insert > Module.
Paste this into it:
'***************** start ***********************
Sub Test()
Call ListWordFiles("C:\Temp")
End Sub

Sub ListWordFiles(Folder As String)
Dim NextFile As String
Dim L As Long
On Error Resume Next

NextFile = Dir(Folder & "\*.do*")
Do Until NextFile = ""
L = L + 1
Cells(L, 1) = Folder & "\" & NextFile
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(L, 1), _
Address:=Folder & "\" & NextFile
Cells(L, 2) = FileDateTime(Folder & "\" & NextFile)
NextFile = Dir()
Loop
End Sub
'********************* end *******************

Change the text "C:\Temp" to your real folder name. Return to Excel and run
the macro Test.

HTH. Best wishes Harald

 

[jrwaguespack]

Nothing Happened. Do I need to insert the ****start*** and ***end*** line as
well?

 

[Harald Staff]

Those lines would make no difference. Please explain what you did and post
your "Test" macro.

Best wishes Harald