Custom Document Properties

[technologika]

I'm developing a database to create a hyperlinked index of files in a folder. I'm trying to get document properties for all files in a folder. Properties like FileName, Author, and Tags. Using VBA how can I grab document property information from each file and store it in a table. The documents are Word documents.
Thanks

[ADezii]

You can grab Built-In or Custom Properties of a Word Document by accessing the BuiltInDocumentProperties and/or CustomDocumentProperties of a Word Document Object. Typical Built-In Properties would be:

01            Title
02            Subject
03            Author
04            Keywords
05            Comments
06            Template
07            Last author
08            Revision number
09            Application name
10            Last print date
11            Creation date
12            Last save time
13            Total editing time
14            Number of pages
15            Number of words
16            Number of characters
17            Security
18            Category
19            Format
20            Manager
21            Company
22            Number of bytes
23            Number of lines
24            Number of paragraphs
25            Number of slides
26            Number of notes
27            Number of hidden Slides
28            Number of multimedia clips
29            Hyperlink base
30            Number of characters (with spaces)
31            Content type
32            Content status
33            Language
34            Document version

[PhilOfWalton]

Interesting question, but this might get you started

These first 2 routines get the names of all .doc & .docx in a named folder and all subfolders.

In this case my main folder is called "E:\Phil Data\Word Documents\BOATS\"
Note the final "\"

Function GetWordFiles(HostFolder As String)
'?GetWordFiles("E:\Phil Data\Word Documents\BOATS\")
    ' Routine to get all files & foldere in host folder
 
    Dim FileSystem As Object
 
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    DoFolder FileSystem.GetFolder(HostFolder)
 
End Function
 
Sub DoFolder(Folder)
 
    Dim SubFolder As Variant
    Dim File As Variant
 
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
 
    For Each File In Folder.Files
        If right(File.Name, 5) = ".docx" Or right(File.Name, 4) = ".doc" Then   ' For whaterver files you need
            Debug.Print File.Name
            fEnumProps Folder & "\" & File.Name
            Debug.Print "*******************************************************"
            Debug.Print
        End If
    Next
 
End Sub
 

The next bit of code displays about 25 lines of the document's properties. Obviously you must select the ones you want and load them to your table.

Function fEnumProps(strInFile As String)
 
    Dim objWord As Object, objDocProps As Object
    Dim i As Integer
 
    On Error Resume Next
 
    Set objWord = CreateObject("Word.Application")
 
    With objWord
        .Documents.Open strInFile
        Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
 
        For i = 0 To objDocProps.Count - 1
            Debug.Print objDocProps(i).Name, objDocProps(i).Value
        Next i
    End With
 
    objWord.Application.Quit savechanges:=False
    Set objWord = Nothing
 
End Function
 

Phil