Accessing Word Properties

[sandylou]

I have the following code in which I want the filename and the BuiltinDocumentProperty("Comments&quot value. I can get the filename but can't get the builtinDocumentProperty. ANY help?


Dim fs, objFolder, filecollection, i, filename, intComments, myDoc
Dim Doc As Document

Set fs = CreateObject("Scripting.FileSystemObject&quot
Set objFolder = fs.GetFolder("c:\WUTEMP&quot
Set filecollection = objFolder.Files

For Each filename In filecollection
i = i + 1
MsgBox filename
Doc.BuiltInDocumentProperties("Comments&quot = intComments
MsgBox intComments
Next

 

[fumei]

Here are some of the BuiltInDocumentProperties(Index) values.

Title = 1
Subject = 2
Author = 3
Keywords = 4
Comments= 5
Template = 6
Last author = 7
Revision number = 8
Application name = 9
Last Print date = 10
Number of words = 15
Number of lines = 23

Number of bytes = 22 for those who really want to know?
Number of characters (with spaces) = 30

blah blah