FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test_ThisComponent_getCurrentComponent 
  
'Récupère le chemin et le nom du fichier contenant cette macro 
'Nota:  
'getURL renvoie une chaîne vide si le fichier n'est pas enregistré 
MsgBox ConvertFromURL( ThisComponent.getURL ) 
  
'Récupère le chemin et le nom du fichier Actif. 
'Nota: 
'Renvoie un chaîne vide si la macro est lancée depuis l'éditeur de macros 
MsgBox ConvertFromURL( StarDesktop.getCurrentComponent.getURL ) 
End Sub

ThisComponent.CurrentController.Frame.Title = "Nouveau titre"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub LireProprietesFichier 
  Dim oInfo As Object 
  
  oInfo = ThisComponent.DocumentInfo 
  
   MsgBox "Titre: " & oInfo.title & Chr(10) & _ 
     "Auteur: " & oInfo.Author & Chr(10) & _ 
     "Mots clés: " & oInfo.Keywords & Chr(10) & _ 
     "Description: " & oInfo.Description & Chr(10) & _ 
     "Sujet: " & oInfo.Subject & Chr(10) & _ 
     "Type: " & oInfo.MIMEType 
  
   MsgBox "Date création: " & oInfo.CreationDate.Day & "/" & oInfo.CreationDate.Month & _ 
     "/" & oInfo.CreationDate.Year & Chr(10) & _ 
     "Modifié par: " & oInfo.ModifiedBy & Chr(10) & _ 
     "Date modification: " & oInfo.ModifyDate.Day & "/" & oInfo.ModifyDate.Month & _ 
     "/" & oInfo.ModifyDate.Year & " " & Format(oInfo.ModifyDate.Hours, "00") & ":" & _ 
     Format(oInfo.ModifyDate.Minutes, "00") & ":" & Format(oInfo.ModifyDate.Seconds, "00") 
  
  
  'Autre possibilité pour lire les propriétés 
  MsgBox oInfo.getPropertyValue("Author") 
End Sub

1
2
3
4
5
6
7
  Dim oInfo As Object 
  
  oInfo = ThisComponent.DocumentInfo 
  oInfo.Author = "mimi" 
  
  'Une autre possibilité de syntaxe pour modifier une propriété 
  oInfo.setPropertyValue("ModifiedBy" , "fifi")

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AjoutChampUtilisateur 
  Dim oInfo As Object 
  
  oInfo = ThisComponent.DocumentInfo  
  
  'Ajout d'une information personnelle dans la 1er champ: 
  oInfo.setUserFieldName( 0 , "Affaire" )  
  oInfo.setUserFieldValue( 0 , "FAQ OOo" )  
  
  'Lecture du premier champ utilisateur 
  MsgBox "Nom champ utilisateur N°1: " & oInfo.getUserFieldName(0) & Chr(10) & _ 
    "Contenu champ utilisateur N°1: " & oInfo.getUserFieldValue(0) 
  
End Sub

1
2
3
4
5
6
7
8
9
10
Sub EffacerChampUtilisateur 
  Dim oInfo As Object 
  
  oInfo = ThisComponent.DocumentInfo  
  
  'Suppression info dans la 1er champ 
  oInfo.setUserFieldName( 0 , "" )  
  oInfo.setUserFieldValue( 0 , "" )  
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub InformationsImprimanteActive 
  
  MsgBox ThisComponent.Printer(0).Value & Chr(10) & _ 
    "Est occupée: " & ThisComponent.Printer(4).Value 
  
  '  0 = Name 
  '  1 = PaperOrientation ( 0=Portrait , 1=Paysage) 
  '  2 = PaperFormat ( 0=A3 , 1=A4 , 2=A5 , 3=B4 , B5=4 ) 
  '  3 = PaperSize  
  '  4 = IsBusy 
  '  5 = CanSetPaperOrientation 
  '  6 = CanSetPaperFormat 
  '  7 = CanSetPaperSize 
  
End Sub

ThisComponent.LockControllers

ThisComponent.UnlockControllers

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Main 
  MsgBox "Version OOo: " & RecupereVersionOOO 
End Sub 
  
  
Function RecupereVersionOOO() As String 
  '----------------------- 
  'Auteur: Laurent Godard 
  'récupère version de OOo 
  '----------------------- 
  
  Dim aSettings, aConfigProvider 
  Dim aParams2(0) As new com.sun.star.beans.PropertyValue  
  
  aConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" )  
  
  aParams2(0).Name = "nodepath"  
  aParams2(0).Value = "/org.openoffice.Setup/Product"  
  
  aSettings = aConfigProvider.createInstanceWithArguments( "com.sun.star.configuration.ConfigurationAccess", aParams2() ) 
  
  RecupereVersionOOO = aSettings.getbyname("ooSetupVersion") 
End Function

1
2
3
Sub Main 
  MsgBox GetSolarVersion 
End Sub

1
2
3
stardesktop.terminate() 'ferme le doc courant 
DisposeDocument(ThisComponent) 'ferme le doc passé en paramètre 
ThisComponent.close(True) 'méthode de l'objet doc

1
2
3
4
5
6
7
If CInt( GetSolarVersion() ) < 410 Then 'Teste la version de la suite 
   Beep 'Son d'erreur 
   MsgBox "Votre version de LibreOffice/OpenOffice ("""&GetSolarVersion()&""") est trop ancienne pour utiliser cette macro, il vous faut un minimum la ""410""." 
   Beep 'Son d'erreur 
   MsgBox "Macro désactivé" 
   Stop 'Désactive l'éxécution de la macro 
End If