Hi Jon
I believe that the recent file list handling was reworked some years ago and the list is no longer located where your code tries to find it. What version of LibreOffice are you using? I also recomend that you install XrayTool, that let’s you inspect objects and would have made it easier to see that the PickList you tried to access was empty. http://bernard.marcelly.perso.sfr.fr/index2.html I hope that the code below will do what you want. I used a few functions from the Tools library that is bundled with LibreOffice. I recomend that you have a look at these functions especially GetRegistryKeyContent. Option Explicit Sub Load1st() Dim oCUA, oList, oItem As Object BasicLibraries.LoadLibrary("Tools") REM use GetRegistryKeyContent function from the module Tools.Misc oCUA = GetRegistryKeyContent(sKeyName:="/org.openoffice.Office.Histories/Histories", bforUpdate:=true) oList = oCUA.getByName("URLHistory").getByName("OrderList") If oList.hasByName("0") Then oItem = oList.getByName("0") If FileExists(oItem.HistoryItemRef) Then REM use OpenDocument function from the module Tools.Misc OpenDocument(oItem.HistoryItemRef, Array()) End If End If End Sub Anyway I hope this helps you, and don’t hesitate to ask follow-up questions, and of course let me know if the code isn’t working for you. Regards, Niklas -- To unsubscribe e-mail to: [email protected] Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted
