RE: Reading Word's Custom Properties without opening a doc?

[suzy -dot- davis -at- doi -dot- vic -dot- gov -dot- au]

Woops, Rob

I forgot to write a response to you.

I know there is an API which does what you want that my colleague was using
last year, allows you to read the custom properties of documents as you
loop through them in explorer using VBA from Word.

I don't think the one he used included WordBasic, and not sure if I kept a
note of it.  I think he's currently traipsing around inland Australia...

So if what you have doesn't do it, give me a yell and I'll see if I can
find it for you.

regards
Suzy



                                                                                                                                                   
                      "Rob Partridge"                                                                                                              
                      <rob -at- holly -dot- com -dot- au>                   To:       "TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com>                                       
                      Sent by:                             cc:                                                                                     
                      bounce-techwr-l-165345 -at- lists -dot-         Subject:  RE: Reading Word's Custom Properties without opening a doc?                   
                      raycomm.com                                                                                                                  
                                                                                                                                                   
                                                                                                                                                   
                      09/08/04 02:10 PM                                                                                                            
                      Please respond to "Rob                                                                                                       
                      Partridge"                                                                                                                   
                                                                                                                                                   
                                                                                                                                                   






Never mind... I may have found my solution. I finally found this on the
web:

Sub GetCProps()
Dim oFilePropReader As DSOleFile.PropertyReader
Dim oDocProp As DSOleFile.DocumentProperties
Dim oCustProp As DSOleFile.CustomProperty
Dim sTmp As String

Set oFilePropReader = New DSOleFile.PropertyReader

With Dialogs(wdDialogFileOpen)
    If .Display = -1 Then
        Set oDocProp = oFilePropReader.GetDocumentProperties( _
                WordBasic.FileNameInfo$(.Name, 1))
        For Each oCustProp In oDocProp.CustomProperties
            sTmp = oCustProp.Name & ": " & CStr(oCustProp.Value)
            Selection.InsertAfter sTmp
            Selection.InsertParagraphAfter
            Selection.Collapse Direction:=wdCollapseEnd
        Next oCustProp
    End If
End With

End Sub

Which uses that same dll to get access to the custom props. This subroutine
lists all the custom properties in a document, but I can adapt it for my
uses. Thanks for all your help guys,

Rob






**********************************************************************
Any personal or sensitive information contained in this email and
attachments must be handled in accordance with the Victorian Information
Privacy Act 2000, the Health Records Act 2001 or the Privacy Act 1988
(Commonwealth), as applicable.

This email, including all attachments, is confidential.  If you are not the
intended recipient, you must not disclose, distribute, copy or use the
information contained in this email or attachments.  Any confidentiality or
privilege is not waived or lost because this email has been sent to you in
error.  If you have received it in error, please let us know by reply
email, delete it from your system and destroy any copies.
**********************************************************************



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ROBOHELP X5: Featuring Word 2003 support, Content Management, Multi-Author
support, PDF and XML support and much more!
TRY IT TODAY at http://www.macromedia.com/go/techwrl

WEBWORKS FINALDRAFT: New! Document review system for Word and FrameMaker
authors. Automatic browser-based drafts with unlimited reviewers. Full
online discussions -- no Web server needed! http://www.webworks.com/techwr-l 

---
You are currently subscribed to techwr-l as:
archiver -at- techwr-l -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot-  Visit
http://www.raycomm.com/techwhirl/ for more resources and info.