OLE -> DocumentsOpen

[Tom Guarino]

Hi all,

I am using the following code to open a word document. I don't want the
document to appear on the MRU list, so I am sending False for the
AddToRecentDocuments parameter. However, it is not working, it still puts
the filename on the MRU list.

I have tried the ReadOnly attribute and it works, so I know I am calling the
correct function inside the OLE, but I need confirmation on the order of my
parameters, or other comments.

Function DocumentsOpen OLEVariant lFileName OLEVariant lReadOnly
OLEVariant lAddToRecentFiles Returns LPDispatch
Local LPDispatch lretVal
Send DeclareParams 10
Send DefineOLEVariantParam lFileName
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam lReadOnly
Send DefineOLEVariantParam lAddToRecentFiles
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Send DefineOLEVariantParam OLE_VT_OPTIONAL
Get InvokeLPDispatchFunction 12 To lretVal
Function_Return lretVal
End_Function


Thanks for any help.

Tom

 

[Dave Lett]

Hi Tom,

You might find your answer in the article "Prevent a file from showing up on
the recently used files list" at
http://www.mvps.org/word/FAQs/MacrosVBA/DisplayRecentFilesOff.htm

HTH