Am 10.11.2011 01:02, drew wrote:
On Wed, 2011-11-09 at 17:55 -0500, Andrew Douglas Pitonyak wrote:
sNames = oLibs.getElementNames()
For i = UBound(sNames) To LBound(sNames) Step -1
oLibs.removeLibrary(sNames(i))
Next
End Sub
sNames = oLibs.getElementNames()
For i = UBound(sNames) To LBound(sNames) Step -1
if sNames(i)<>"Standard" then
oLibs.removeLibrary(sNames(i))
ThisComponent.setModified(True)
endif
Next
End Sub
--
Hi Andrew,
Excellent - the only problem is, and it aint yours per so, is removing
libraries from a document - at least with LibO 3.4.4 as that is what I
tried it on - does not set the dirty flag for the documnet. So if you
run the macro and close the document the change isn't saved...arrrgh.
Best wishes,
//drew
--
For unsubscribe instructions e-mail to: users+h...@global.libreoffice.org
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
