OOoBasic/Generic/RemoveLibrary

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24

Sub NewFileCreated
  'oDoc = ThisComponent
  'oDoc.getText().setString("Hello.")
  
  UnRegisterEvent(oDoc, "OnNew")
  RemoveLibrary(oDoc, "Standard")
End Sub
 
 
Sub UnRegisterEvent(oDoc As Object, sEventName As String )
  oEvents = oDoc.getEvents()
  If oEvents.hasByName(sEventName) Then
    Dim aArgs(0) As New com.sun.star.beans.PropertyValue
    
    oEvents.replaceByName(sEventName, aArgs)
  End If
End Sub
 
 
Sub RemoveLibrary(oDoc As Object, sLibName As String)
  oLibs = oDoc.BasicLibraries
  If oLibs.hasByName(sLibName) Then
    oLibs.removeLibrary(sLibName)
  End If
End Sub