FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EnregistrerSous 
Dim Fichier As String 
Dim Args(0) As New com.sun.star.beans.PropertyValue 
  
Fichier = ConvertToURL("C:\Documents and Settings\michel\dossier\monClasseur.ods") 
  
'**************************************** 
'Propriété pour ajouter un mot de passe lors de l'enregistrement : 
  'Args(0).Name = "Password" 
  'Args(0).Value = "123456" 
  
'La liste des propriétés: 
'http://api.openoffice.org/docs/common/ref/com/sun/star/document/MediaDescriptor.html 
'***************************************** 
  
ThisComponent.storeAsURL(Fichier, Args()) 
  
End Sub

ThisComponent.Store

1
2
3
4
5
6
7
8
9
10
Sub Creer_CopieDeSauvegarde 
Dim Fichier As String 
Dim Args(0) As New com.sun.star.beans.PropertyValue  
  
'--- Ajoute la date du jour dans le nom de la sauvegarde : YYYYMMDD   
Fichier = _ 
ConvertToURL("C:\Documents and Settings\michel\Sauvegarde " & CDateToIso(Date) & ".ods" 
  
ThisComponent.storeToURL(Fichier,Args())  
End Sub

1
2
3
4
5
6
7
8
Sub boiteDialogueEnregistrerSous 
  Dim oFrame As Object ,oDisp As Object 
  Dim Array() 
  
  oFrame = ThisComponent.CurrentController.getFrame() 
  oDisp = createUnoService("com.sun.star.frame.DispatchHelper") 
  oDisp.executeDispatch(oFrame , ".uno:SaveAs", "", 0 , Array()) 
end Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub informations_Sauvegardes 
  
'--- Retrouve le chemin de stockage du fichier ---	 
  
'Nota: Renvoie une chaîne vide si le fichier n'est pas enregistré 
MsgBox ConvertFromURL( ThisComponent.getURL() ) 
'Renvoie chemin complet du fichier 
'(Renvoie une chaîne vide s'il s'agit d'un document non sauvegardé) 
MsgBox ConvertFromUrl(ThisComponent.GetLocation) 
'-------------------------------------------------- 
  
  
'--- Vérifie si le fichier est enregistré sur le disque --- 
  
MsgBox ThisComponent.HasLocation 
'Renvoie False si le document n'a jamais été sauvegardé  
'---------------------------------------------------------- 
  
  
'Vérifie si le document contient des modifications non enregistrées 
MsgBox ThisComponent.isModified 
'False : pas de modification 
'True : modifications non enregistrées 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
Sub Annule_IndicationModifications 
  
'Vérifie le statut de l'indicateur de modification 
MsgBox ThisComponent.IsModified 
  
'Annule l'indication de modification 
ThisComponent.setModified(False) 
  
'Vérifie le statut de l'indicateur de modification 
MsgBox ThisComponent.IsModified 
  
End Sub