The Free and Open Productivity Suite
Apache OpenOffice 4.1.7 released
REM  *****  BASIC  *****

Option Explicit

Sub Main
        ChangePickListSize( 10 )
End Sub

Sub ChangePickListSize( nSize as Integer )
        ' access the global configuration provider
        Dim aConfigProvider As Object
        aConfigProvider = createUnoService( "" )
        ' create an access object for the history node
        Dim aHistorySettings As Object
        Dim aParams(0) As new
        aParams(0).Name = "nodepath"
        aParams(0).Value = "/org.openoffice.Office.Common/History"
        aHistorySettings = aConfigProvider.createInstanceWithArguments( _
                "", _
                aParams() )
        ' set the pick list size
        aHistorySettings.replaceByName( "PickListSize", nSize )
        ' commit the changes done
End Sub

Apache Events

Apache Software Foundation

Copyright & License | Privacy | Contact Us | Donate | Thanks

Apache and the Apache feather logo are trademarks of The Apache Software Foundation. OpenOffice, and the seagull logo are registered trademarks of The Apache Software Foundation. Other names appearing on the site may be trademarks of their respective owners.