IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.

SommaireExtraits de code (2)
précédent sommaire
 

Code vb : Sélectionner tout
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

Mis à jour le 16 juillet 2016 Pascaltech

Code vb : Sélectionner tout
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

Mis à jour le 16 juillet 2016 Pascaltech

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2021 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.