RE: [prog] Rechercher remplacer dans entete

[Cezame Concept]

Title: Rechercher remplacer dans entete

Bonjour,   Personne n’a déjà réalisé ce genre de choses ?   Peux être est ce un bug d’oO ?   Merci de votre aide … De : Cezame Concept [mailto:[EMAIL PROTECTED] Envoyé : mercredi 26 avril 2006 13:59 À : prog@fr.openoffice.org Objet : [prog] Rechercher remplacer dans entete   Bonjour, Désolé de revenir a la charge mais je rencontre un problème pour réaliser un rechercher / Remplacer dans un entête … Je suis entrain de développer une appli utilisant des modèles de documents … Je souhaite pouvoir remplacer des champs prédéfinis dans les entêtes du document… J’ai réussi a effectuer les remplacement dans l’entête mais lorsque j’utilise des tableaux dans l’entête et y place des champs prédéfinis j’ai un plantage je ne comprends pas pourquoi … Ci-dessous mon code sous VB .Net express      Function RechercherRemplacerToutPressePapier(ByVal sMots As String, ByVal sRespecterCasse As Boolean, ByVal sMotEntier As Boolean) As Long         Dim oResultat As Object         Dim oDispatcherLocal As Object         Dim oIndex As Integer         Dim oControleur As Object         Dim Arguments(0) As Object         oSel = oDocument.CurrentController.Frame         Arguments(0) = MakePropertyValue("Hidden", False)         sMots = ConvertToAllowsString(sMots)         oDispatcherLocal = CreateUnoService("com.sun.star.frame.DispatchHelper")         oMonTexte = oDocument.getText()         oControleur = oDocument.CurrentController         oJeCherche = oDocument.createSearchDescriptor         'Definir la balise à rechercher dans le document OpenOffice Word         oJeCherche.SearchString = sMots         'Distinguer les majuscules des minuscules dans la recherche         oJeCherche.SearchCaseSensitive = sRespecterCasse         'Ne rechercher que des mots         oJeCherche.SearchWords = sMotEntier         'Rechercher à reculons         oJeCherche.SearchBackwards = False         'Faire une recherche avec la méthode des expressions régulières         oJeCherche.SearchRegularExpression = True         'Rechercher des paragraphes d’un style donné par SearchString         oJeCherche.SearchStyles = False         'Rechercher un texte similaire au texte cherché         oJeCherche.SearchSimilarity = False         oResultat = oDocument.findAll(oJeCherche)         For oIndex = 1 To oResultat.getCount()             ' sélectionner la chaine de recherche             oMonCurseur = oMonTexte.createTextCursorByRange(oResultat.getByIndex(oIndex - 1))             'Remplacement par le contenu du presse papier             oControleur.select(oMonCurseur)             oDispatcherLocal.executeDispatch(oSel, ".uno:Paste", "", 0, Arguments)         Next         RechercherRemplacerToutPressePapier = oResultat.getCount()     End Function. Est-ce que quelqu’un a déjà réalisé ceci ? Est ce un bug dans oO ? Merci d’avance pour votre aide   --------------------------------------------------------------------------------------- Wanadoo vous informe que cet e-mail a ete controle par l'anti-virus mail. Aucun virus connu a ce jour par nos services n'a ete detecte.