Q:

Pull Document Properties for Directory of DOC files into Excel Sheet

I have a directory full of MS Word .Doc files.  I need to generate a list of those files with the page count for each, e.g., "File 1- 50 words, File 2 -100 words" etc.   It seems like it'd be easiest to do this in Excel (file name in column A, page count in column B), though I'm not totally committed to that. 
Frustratingly, I can view this in Windows Explorer by just adding the "Pages" field, so I know the information is there, but I can't print or otherwise work with it.  I can generate a list of files to import into Excel using a command prompt Dir command, but I can't figure out a way to get that list to include page counts.  
Does anyone have any ideas? 
Update 2 (deleted 1 because I realized I was being an idiot):
I'm trying to execute Noodle's script from a VSB file, but getting a "Subscript out of range" error on line 6.  Have not made any changes from what's posted in the reply (I did initially, but they caused different problems), and can't figure out where the error is coming from.  Suggestions? 

A:

This code dumps all shell properties for a folder that you can use Import Data in Excel to import.  It's VBScript and VBScript is legal VBA, so you can optimise it for speed to VBA normal programming style or use as is.  
Ag(0) is the command line parameter, ie the folder to be done.  You can't use this in VBA but have to replace with the host's (excel/word) equivelent method in the app object (excel or word). 
Set objShell = CreateObject("Shell. Application")
Set Ag=Wscript. Arguments
set WshShell = WScript. CreateObject("WScript. Shell")

'Set Fldr=objShell. NameSpace(32)
Set Fldr=objShell. NameSpace(Ag(0))
Set FldrItems=Fldr. Items
Set fso = CreateObject("Scripting. FileSystemObject")

Set DeskFldr=objShell. Namespace(16)
FName=fso.buildpath(DeskFldr.self.path, "Folder Property List.txt")

Set ts = fso. OpenTextFile(FName, 8, true)

For x = 0 to 100
    t1 = t1 & Fldr. GetDetailsOf(vbnull, x) & vbtab
Next
ts.write FLDR.self.path & vbcrlf
ts. Write T1 & vbcrlf
T1=""

For Each FldrItem in FldrItems
    For x = 0 to 100
        t1 = t1 & Fldr. GetDetailsOf(FldrItem, x) & vbtab
    Next
    t1=t1 & vbcrlf
    ts. Write T1
    T1=""
Next

msgbox FName & "has a tab delimited list of all properties"

Note this program has different outputs depending on which version of Windows it is run on, and every version is different.  My Vista does not have a page field.