I have a spreadsheet that I'm dumping all the file names from a directory. I can get the AutoCAD file properties using dwgprops

Set dwgprops = New DWGPROPSXLib.Properties
dwgprops.Load (DWGSourceFolderName & "\" & FileName)
Cells(r, 2).Formula = FileItem.Path & FileItem.Name
Cells(r, 3).Formula = dwgprops.Title
Cells(r, 4).Formula = dwgprops.Subject
Cells(r, 5).Formula = dwgprops.Author

How do i do the same thing for Word or Excel files? What I'm trying to get is the info from the summary tab.