 | 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: |
5 messages in org.openoffice.fr.progRe: [prog] [oWriter] Insertion d'un h...| From | Sent On | Attachments |
|---|---|---|
| Cezame Concept | Feb 26, 2007 3:33 am | |
| Laurent Godard | Feb 26, 2007 3:43 am | |
| Cezame Concept | Feb 26, 2007 3:57 am | |
| Bernard Marcelly | Feb 26, 2007 11:29 am | |
| Cezame Concept | Feb 26, 2007 11:45 am |
| 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: | Re: [prog] [oWriter] Insertion d'un hyperlien dans un tableau | Actions... |
|---|---|---|
| From: | Cezame Concept (ceza...@wanadoo.fr) | |
| Date: | Feb 26, 2007 3:57:48 am | |
| List: | org.openoffice.fr.prog | |
Quelle syntaxe utiliser a la place de ceci :
Sub InsererHyperLienDansTableauParPosition(ByVal sNomTableau As String, ByVal
sLigneCellule As Integer, ByVal sColonneCellule As Integer, ByVal
sTexteAAfficher As String, ByVal sURL As String)
Dim oMonTexte As Object
Dim oMonCurseur As Object
Dim oMonTableau As Object
Dim oMaCellule As Object
Dim sDocument As String
Dim Arguments(4) As Object
sDocument = ConvertToUrl(sURL)
If oDocument.TextTables.hasByName(sNomTableau) Then
oMonTexte = oDocument.Text
oMonCurseur = oMonTexte.CreateTextCursor
oMonCurseur.gotoNextParagraph(False)
oMonCurseur.gotoNextParagraph(False)
oMonTableau = oDocument.TextTables.getByName(sNomTableau)
oMaCellule = oMonTableau.getCellByPosition(sColonneCellule - 1, sLigneCellule -
1)
oMaCellule.string = " - "
oSel = oDocument.CurrentController.Frame
Arguments(0) = MakePropertyValue("Hyperlink.Text", sTexteAAfficher)
Arguments(1) = MakePropertyValue("Hyperlink.URL", sDocument)
Arguments(2) = MakePropertyValue("Hyperlink.Target", "")
Arguments(3) = MakePropertyValue("Hyperlink.Name", sTexteAAfficher)
Arguments(4) = MakePropertyValue("Hyperlink.Type", 1)
oDispatcher.executeDispatch(oSel, ".uno:SetHyperlink", "", 0, Arguments)
End If End Sub en particulier sur le oSel = oDocument.CurrentController.Frame Merci de votre aide ....
Message du 26/02/07 12:45 De : "Laurent Godard" A : pr...@fr.openoffice.org Copie à : Objet : Re: [prog] [oWriter] Insertion d'un hyperlien dans un tableau
Bonjour
si tu utilises un dispatcher, je pense qu'il faudrait que tu te serves du ViewCursor et non d'un textCursor normal
je n'ai cependant pas regardé en detail donc ai pu rater quelque chose
a+
Laurent
-- Laurent Godard - Ingénierie OpenOffice.org - http://www.indesko.com Nuxeo Enterprise Content Management >> http://www.nuxeo.com - http://www.nuxeo.org Livre "Programmation OpenOffice.org", Eyrolles 2004-2006
--------------------------------------------------------------------- To unsubscribe, e-mail: prog...@fr.openoffice.org For additional commands, e-mail: prog...@fr.openoffice.org
--------------------------------------------------------------------------------------- Orange 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.