FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
Sub OuvrirFichier() 
     Dim NoArgs() 
     Objet_Desktop = createUnoService("com.sun.star.frame.Desktop") 
     String_Localisation_fichier_a_ouvrir = "file:///chemin\accès\repertoire\du\fichier_a_ouvrir\fichier_a_ouvrir.extension" 'l'instruction "file:///" indique que c'est un fichier 
     Objet_fichier_ouvert = Objet_Desktop.loadComponentFromURL(String_Localisation_fichier_a_ouvrir,"_blank",0,NoArgs()) 
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
26
27
28
Sub ChercheMotTexte() 
  
	Objet_Doc = ThisComponent 
  
	' Creation du curseur : 
	Objet_Selecteur = Objet_Doc.Text.createTextCursor() 
  
	' Début de la recherche : 
	Objet_Selecteur.gotoStart(false) 
  
	for i = 1 to 10000 ' selon la longueur du texte 
		Objet_Selecteur.gotoNextWord(true) 
		Objet_Selection = Objet_Selecteur.string 
  
		String_Texte1 = "Mot_a_rechercher" 
		String_Texte2 = Texte1 + " " 
		' l'espace est nécessaire pour la fonction précédente "gotoNextWord(true)" car il y a un espace entre chaque mot, au minimum, qui est inclu dans la sélection 
  
		if Objet_Selection = Texte1 then 
			'[code à opérer] 
		elseif Objet_Selection = Texte2 then 
			'[code à opérer] 
		endif 
		Objet_Selecteur.collapseToEnd() 
		' réinitialise la mise en évidence et positionne Objet_Selecteur à la fin de la zone précédemment mise en évidence 
	Next 
  
End Sub