 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
22 messages in org.openoffice.fr.prog[prog] OLE OpenOffice ... Rechercher ...| From | Sent On | Attachments |
|---|---|---|
| Jean-Baptiste FAURE | Mar 12, 2006 11:22 am | |
| Cezame Concept | Mar 14, 2006 1:14 am | |
| Cezame Concept | Mar 14, 2006 1:22 am | |
| Alain Nowak | Mar 14, 2006 1:38 am | |
| Cezame Concept | Mar 14, 2006 1:49 am | |
| Alain Nowak | Mar 14, 2006 2:19 am | |
| Cezame Concept | Mar 14, 2006 2:43 am | |
| Cezame Concept | Mar 14, 2006 2:46 am | |
| Laurent Godard | Mar 14, 2006 3:00 am | |
| Jean-Baptiste FAURE | Mar 14, 2006 3:41 am | |
| Laurent Godard | Mar 14, 2006 3:50 am | |
| Cezame Concept | Mar 14, 2006 3:51 am | |
| Cezame Concept | Mar 14, 2006 4:03 am | |
| Laurent Godard | Mar 14, 2006 4:40 am | |
| Cezame Concept | Mar 14, 2006 4:50 am | |
| J. De BACKER | Mar 14, 2006 5:18 am | |
| Laurent Godard | Mar 14, 2006 5:20 am | |
| Bernard Marcelly | Mar 14, 2006 5:24 am | |
| Laurent Godard | Mar 14, 2006 5:31 am | |
| Cezame Concept | Mar 14, 2006 6:02 am | |
| Cezame Concept | Mar 14, 2006 6:14 am | |
| Jean-Baptiste FAURE | Mar 14, 2006 11:43 pm |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | [prog] OLE OpenOffice ... Rechercher ... | Actions... |
|---|---|---|
| From: | Cezame Concept (ceza...@wanadoo.fr) | |
| Date: | Mar 14, 2006 1:22:20 am | |
| List: | org.openoffice.fr.prog | |
Afin deffectuer une recherche dune chaîne dans un document oOWriter jutilise la fonction suivante sous VB Express 2005
Sub RechercherUNO(ByVal sRecherche As String, ByVal sRespecterCasse As Boolean)
Dim oDispatcherLocal As Object
oDispatcherLocal = CreateUnoService("com.sun.star.frame.DispatchHelper")
Dim Arguments(19) As Object
sRecherche = ConvertToAllowsString(sRecherche)
oSel = oDocument.CurrentController.Frame
Arguments(0) = MakePropertyValue("SearchItem.StyleFamily", 2)
Arguments(1) = MakePropertyValue("SearchItem.CellType", 0)
Arguments(2) = MakePropertyValue("SearchItem.RowDirection", True)
Arguments(3) = MakePropertyValue("SearchItem.AllTables", False)
Arguments(4) = MakePropertyValue("SearchItem.Backward", False)
Arguments(5) = MakePropertyValue("SearchItem.Pattern", False)
Arguments(6) = MakePropertyValue("SearchItem.Content", False)
Arguments(7) = MakePropertyValue("SearchItem.AsianOptions", False)
Arguments(8) = MakePropertyValue("SearchItem.AlgorithmType", 0)
Arguments(9) = MakePropertyValue("SearchItem.SearchFlags", 65536)
Arguments(10) = MakePropertyValue("SearchItem.SearchString", sRecherche)
Arguments(11) = MakePropertyValue("SearchItem.SearchRegularExpression", True)
Arguments(12) = MakePropertyValue("SearchItem.ReplaceString", "")
Arguments(13) = MakePropertyValue("SearchItem.Locale", 255)
Arguments(14) = MakePropertyValue("SearchItem.ChangedChars", 2)
Arguments(15) = MakePropertyValue("SearchItem.DeletedChars", 2)
Arguments(16) = MakePropertyValue("SearchItem.InsertedChars", 2)
Arguments(17) = MakePropertyValue("SearchItem.TransliterateFlags", 1024)
Arguments(18) = MakePropertyValue("SearchItem.Command", 0)
Arguments(19) = MakePropertyValue("Quiet", True)
MsgBox(oDispatcherLocal.executeDispatch(oSel, ".uno:ExecuteSearch", "", 0, Arguments))
End Sub
Public Function MakePropertyValue(ByVal cName As String, ByVal uValue As Object) As Object
Dim oStruct As Object
oStruct = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oStruct.Name = cName
oStruct.Value = uValue
MakePropertyValue = oStruct
End Function
Cette fonction marche très bien .. comment la compléter afin de savoir si la recherche a abouti ou non ? Comment savoir aussi le nombre dinstances de la chaîne dans le document ? toujours en utilisanbt les commandes UNO
Merci davance