DSO File Properties

[DonkeyOte]

Anybody know the index list for custom properties? (a list of n)?

eg

DSO.GetDocumentProperties(P).CustomProperties.Item

If not, does anyone know if it's at all possible to determine (from VBA) as to whether or not a word.doc has the "Save Preview Picture" property activated within the file properties? (Apparently this can add 3MB to a doc file). Better still, anyone know if this can be toggled?[/i]

 

[dk]

Luke,

Long time no see. How's it going?

This code seems to work ok:-

<pre><FONT COLOR="#00007F">Option</FONT> <FONT COLOR="#00007F">Explicit</FONT>


<FONT COLOR="#00007F">Sub</FONT> GetProps()
<FONT COLOR="#00007F">Dim</FONT> DSO <FONT COLOR="#00007F">As</FONT> DSOleFile.PropertyReader, olePic <FONT COLOR="#00007F">As</FONT> StdPicture
<FONT COLOR="#00007F">Dim</FONT> vFilename <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">Variant</FONT>


vFilename = Application.GetOpenFilename("All Files,*.*", , "Choose a file...")
<FONT COLOR="#00007F">If</FONT> vFilename = <FONT COLOR="#00007F">False</FONT> <FONT COLOR="#00007F">Then</FONT> <FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">Sub</FONT>


<FONT COLOR="#00007F">Set</FONT> DSO = <FONT COLOR="#00007F">New</FONT> DSOleFile.PropertyReader


<FONT COLOR="#007F00">'The code will error if there is no preview</FONT>
<FONT COLOR="#00007F">On</FONT> <FONT COLOR="#00007F">Error</FONT> <FONT COLOR="#00007F">Resume</FONT> <FONT COLOR="#00007F">Next</FONT>
<FONT COLOR="#00007F">Set</FONT> olePic = DSO.GetDocumentProperties(vFilename).Thumbnail


<FONT COLOR="#00007F">If</FONT> olePic <FONT COLOR="#00007F">Is</FONT> <FONT COLOR="#00007F">Nothing</FONT> <FONT COLOR="#00007F">Then</FONT>
MsgBox vFilename & " has no preview image."
<FONT COLOR="#00007F">Else</FONT>
MsgBox vFilename & " has a preview image."
<FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT>


<FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT>
</pre>

 

[DonkeyOte]

Cheers Dan - top stuff as always!

Luke

 

[DonkeyOte]

Dan - again thanks - do you know if you can control the toggle on this property from XL (ie turn it off if the preview exists)?

Cheers

As for long time no see...I am keeping a low profile! (Perhaps I should work when I am at work :wink: ???)