FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
Sub ListeModules 
  Dim Tableau() 
  Dim I As Integer 
  
  Tableau()= ThisComponent.BasicLibraries.getByName("Standard").ElementNames 
  
  For I = 0 To UBound(Tableau()) 
    MsgBox Tableau(I) 
  Next I   
End Sub

1
2
3
4
5
6
7
Sub RecupererContenuModule 
  MsgBox ThisComponent.BasicLibraries.getByName("Standard").getByName("Module1") 
  
  'Deuxième possibilité 
  MsgBox ThisComponent.LibraryContainer.getByName("Standard").ModuleContainer. _ 
    getByName("Module1").Source 
End Sub

1
2
3
4
5
6
7
Sub AfficherEditeurMacros() 
   Dim oDisp As Object 
   Dim Args() 
  
   oDisp = createUnoService( "com.sun.star.frame.DispatchHelper" )  
   oDisp.executeDispatch( StarDesktop, "slot:30783", "", 0, Args() )  
End Sub

1
2
3
4
5
6
Sub CreationNouveauModule 
  Dim Librairie As Object 
  
  Librairie = ThisComponent.BasicLibraries.GetByName("Standard")  
  Librairie.InsertByName("NomModule", "REM Test")  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CreerModule_Et_MacroDynamiquement 
  Dim laMacro As String 
  Dim Librairie As Object 
  
  Librairie = ThisComponent.BasicLibraries.GetByName("Standard")  
  
  'Prépare le contenu de la nouvelle macro 
  laMacro = Chr(13) & Chr(13) & "Sub Test" & Chr(13) 
  laMacro = laMacro & "MsgBox " & Chr(34) & "Coucou" & Chr(34) & Chr(13)  
  laMacro = laMacro & "End Sub"  
  
  'Crée le module et la macro 
  Librairie.InsertByName("NomModule2", laMacro)  
  
End Sub

1
2
3
4
5
Sub SupprimerModule 
  Dim Librairie As Object 
  Librairie = ThisComponent.BasicLibraries.getByName("Standard") 
  Librairie.removeByName("Module1") 
End Sub