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 : prog@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: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> ---------------------------------------------------------------------------------------
> 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.
>
>
>
>
