[LibreOffice Calc 4] Macro per aprire collegamenti hyperlink

[pl1957]

Per un conoscente che canta nei pianobar devo convertire una macro da Office a LibreOffice 4 (visto che il tizio sta per passare a Linux).

La macro effettua queste operazioni:
1) Controlla che nella intera riga selezionata siano presenti hyperlink
2) Se ve ne sono, partendo dal primo, li apre in sequenza

In pratica il cantante effettua queste operazioni:
1) Sceglie il brano dalla lista
2) Click per selezionare l'intera riga
3) Click su un pulsante che avvia la macro che:
3a) Avvia la base mp3
3b) Apre un'istanza di Word (adesso), di Writer (con Libre) per mostrare il testo della canzone.

La macro da tradurre è la seguente:

Codice: Seleziona tutto

Attribute VB_Name = "Modulo1"

Sub Macro1()

Attribute Macro1.VB_Description = "Macro registrata il 23/04/2003 da Massimo"
Attribute Macro1.VB_ProcData.VB_Invoke_Func = " \n14"

 If Selection.Hyperlinks.Count > 0 Then
    For i = 1 To Selection.Hyperlinks.Count
       Selection.Hyperlinks(i).Follow NewWindow:=False, AddHistory:=True
    Next
 End If

End Sub


Qualcuno può darmi una dritta?
Grazie anticipate.

[pl1957]

Ho trovato riscontro in un altro forum.
Rimando a quello, se a qualcuno può interessare.
Questo il link alla soluzione.

Grazie comunque!