Second dialog to edit exported libraries
-rename them
-rename modules - includes replacing calls to the module eg in dialog controls
-replace text in files eg to change location=document to location = application
-open files in Writer
Use with caution - don't work on your only copy of a library
See module AAUser
Simple script to export/back up your Basic Libraries. (I've noticed that information in libraries can sometimes be lost when using the organiser and backing them up individually via the dialog is tedious)
Code: Select all
sub test()
SaveBasicLibraries ConvertToUrl("C:\tmp\libraries" & "2" ' format(date,"ddmmyy"))
end sub
Sub SaveBasicLibraries(URL as string)
dim i as long,libnames,Blibs,Dlibs,Dlibnames
Blibs = GlobalScope.BasicLibraries
libnames= Blibs.getelementnames
for i = 0 to ubound(libnames)
Blibs.ExportLibrary libnames(i),URL,nothing
next
Dlibs = GlobalScope.DialogLibraries
Dlibnames= Dlibs.getelementnames
for i = 0 to ubound(Dlibnames)
Dlibs.ExportLibrary Dlibnames(i),URL,nothing
next
Msgbox "Libraries Exported"
End Sub
EDIT: MY ORIGINAL POST DIDN'T EXPORT DIALOGS - AMENDED.
EDIT2: Rename library code posted further on in thread
EDIT3: Added a dialog to the extension to Edit exported libraries