How to generate a report of Word 2003 document properties?

we want know templates our users have used create documents on our file share. understand template property of every microsoft word 2003 file.

does know tool generating report of metadata every file in set of folders without opening each file?

---

preston lathrop knowledge management , quality assurance segal plathrop@segalco.com

hello,

here sample script can use the

template property each document in specified folder
 will need download , install dso file location:
microsoft developer support ole file property reader 2.1 sample (kb 224351)
http://www.microsoft.com/downloads/en/details.aspx?familyid=9ba6fac6-520b-4a0a-878a-53ec8300c4c2&displaylang=en

can run following script:

this script:
'warning: use of code provided in example is
'at own risk. microsoft provides macro code "as is" without warranty of
'any kind, either express or implied, including not limited implied warranties of
'merchantability and/or fitness particular purpose.
'===========================

const dsooptionopenreadonlyifnowriteaccess = 2
const forappending = 8
call gettemplate 'call sub
sub gettemplate
dim docprops 'dsofile.oledocumentproperties
dim sumprops 'dsofile.summaryproperties
dim spath
dim fs
dim folder
dim dfile
dim docs
dim objtextstream
set fs = createobject("scripting.filesystemobject")
spath = inputbox("enter path documents, here:", "document path")
set docprops = createobject("dsofile.oledocumentproperties")

if fs.folderexists(spath) = false then
msgbox "path not valid"
exit sub
else
set folder = fs.getfolder(spath)

set docs = folder.files
'this folder , file name changeable
if fs.fileexists("c:\test\attachedtemplatelog.txt") = false then
fs.createtextfile "c:\test\attachedtemplatelog.txt"
end if
set objtextstream = fs.opentextfile("c:\test\attachedtemplatelog.txt", forappending)
each dfile in docs
if right(dfile.name, 3) = "doc" then

docprops.open spath & "\" & dfile.name, true, dsooptionopenreadonlyifnowriteaccess
set sumprops = docprops.summaryproperties

objtextstream.writeline spath & "\" & dfile.name & "attached template is: " & sumprops.template
docprops.close
end if
next
objtextstream.close

end if

end sub

 

 

thanks

 

---

please remember click “mark answer” on post helps you, , click “unmark answer” if marked post not answer question. can beneficial other community members reading thread. regards, risa microsoft online community support

Microsoft Office  >  Word IT Pro Discussions