OpenOffice.org OpenOffice - 3.2 Manual descargar pdf (Pagina 15)

Distributing OpenOffice.org Basic Libraries

To Install a Custom OpenOffice.org Basic Library With a

Macro

You can create a macros that installs a OpenOffice.org Basic library from an OpenOffice.org document.

1 In Writer, create a custom OpenOffice.org Basic library in a new document.

2 Save the document.

3 Create an installation macro.

a. Choose Tools → Macros → Organize Macros → OpenOffice.org Basic. The OpenOffice.org

Basic Macros dialog box appears.

b. In the Macro from list, select your Writer document.

c. In the Macro name box, type a name from the installation macro.

d. Click the New button. The BASIC IDE window appears.

e. Type the following code:

Sub AddBasicLibrary

Dim SourceLibraryName As String, DestLibraryName As String

Dim oSrcLib As Object, oDestLib As Object, iCounter As Integer

Dim oLib As Object, oGlobalLib As Object

' set these 2 variables to your lib name

SrcLibraryName = "TextLib"

' The name of the library that contains the modules

DestLibraryName = "NewLib"

' This library will be created and is the

' destination for the modules from the source document.

oLib = BasicLibraries ' For Basic libaries

oGlobalLib = GlobalScope.BasicLibraries

For iLib = 1 To 2

If oGlobalLib.hasByName( DestLibraryName ) = False Then

oGlobalLib.createLibrary( DestLibraryName )

End If

If oLib.hasByName( SrcLibraryName ) Then

oLib.loadLibrary( SrcLibraryName )

oSrcLib = oLib.getByName( SrcLibraryName )

sSrcModules = oSrcLib.getElementNames()

iCounter = lBound( sSrcModules() )

while( iCounter <= uBound( sSrcModules() ) )

oDestLib = oGlobalLib.getByName(DestLibraryName)

If oDestLib.hasByName( sSrcModules(iCounter) ) = False Then

oDestLib.insertByName( sSrcModules(iCounter),_

oSrcLib.getByName( sSrcModules(iCounter) ) )

End If

iCounter = iCounter + 1

wend

End If

oLib = DialogLibraries ' The same for the Dialog libraries

oGlobalLib = GlobalScope.DialogLibraries

Next iLib

End Sub

f. Replace the SrcLibraryName and DestLibraryName variables with the name of

your library.

g. Close the BASIC IDE window.

4 Add a push button to the document.

a. On the Form Controls toolbar, click the Push Button icon.

b. In your document, drag to draw the button.

5 Assign the installation macro to a button event.

16 OpenOffice.org 3.2 Administration Guide · March 2010

1 2 ... 10 11 12 13 14 15 16 17 18 19 20 ... 33 34

Comentarios a estos manuales

Sin comentarios

OpenOffice.org OpenOffice - 3.2 Manual Pagina 15

Comentarios a estos manuales

Relacionado con productos y manuales para Software OpenOffice.org OpenOffice - 3.2