Re: [fr-users] Changer des centaines de liens http vers https

Dans un autre topic, on propose la macro suivante :
https://forum.openoffice.org/fr/forum/viewtopic.php?f=4&t=47346#p257401

REM  *****  BASIC  *****

    Sub RenommerHyperliens
' Merci spYre : 
http://user.services.openoffice.org/fr/forum/viewtopic.php?p=84431#p84431
    Dim oDoc as Object, oFeuille as Object, oCellule as Object
    Dim oHyperlien
    Dim a as Integer, b as Integer

    oDoc = ThisComponent
    oFeuille = oDoc.sheets.getbyName("Feuille1") ' par exemple...
    For a = 0 to 25
       For b = 0 to 99
          oCellule = oFeuille.getcellbyPosition(a,b) 'passe en revue 
les cellules de la matrice A1:Z100

          If  oCellule.TextFields.Count = 1 Then  'vérifie la présence 
d'un champ texte

             REM --- Récupération du champ :
             oHyperlien = oCellule.getTextFields.getbyIndex(0)

             REM --- Modification de la propriété "Representation", qui 
est le texte du champ, par l'adresse URL du champ
oHyperlien.setPropertyValue("Representation",oHyperlien.URL)
          EndIf
       Next b
    Next a

    End Sub

Cordialement
Sandy-Pascal Andriant

Le 24/07/2018 à 13:28, sandy andriant a écrit :
> Bonjour,
>
> Trouvé ce topic qui pourrait aider éventuellement (derniers messages)
> https://forum.openoffice.org/fr/forum/viewtopic.php?f=4&t=15203&hilit=hypertexte 
>
>
> Cordialement
> Sandy-Pascal Andriant
>
> Le 24/07/2018 à 10:23, Thierry Jeanneret a écrit :
> > Ca, c'est le désagrément des conversations partiellement privées. 
> > Christophe me l'avait fait remarquer il y a deux heures, merci !
> >
> > Ce qui m'énerve le plus, c'est qu'il y a quelques temps j'ai écrit 
> > une solution permettant de valider les hyper-liens de documents. Le 
> > demandeur
> > Avait une quarantaine de documents writer, assez copieux, avec chacun 
> > quelques dizaines/centaines de références, dont certaines étaient 
> > mortes.
> > J'ai donc parcouru le domaine en long et en large.
> >
> > Vieillir est un naufrage, je confirme :-]
> >
> > Thierry
> >
> >
> > > Le 24 juil. 2018 à 10:09, Cley Faye <cleyfaye@gmail.com> a écrit :
> > >
> > > Le mar. 24 juil. 2018 à 08:45, Thierry Jeanneret <
> > > thierry.jeanneret@gmail.com> a écrit :
> > >
> > > > Bonjour,
> > > >
> > > > C'était un test pour vérifier que lorsqu'on a un marteau, tout 
> > > > n'est que
> > > > clou ? C'est réussi !
> > > >
> > > > Utilisez la fonction Edition - Rechercher & Remplacer de 
> > > > LibreOffice, ça
> > > > marche très bien, pas besoin de sed.
> > > >
> > > > - Rechercher : http:
> > > > - Remplacer  : https:
> > > > - Tout Remplacer
> > > >
> > > > Et l'affaire est faite, après avoir fait une sauvegarde de votre 
> > > > document,
> > > > bien entendu, on ne sait jamais.
> > > >
> > > > Thierry
> > > ​Félicitation, votre clou est bien entré dans le pas de vis :)
> > > Cette méthode ne remplace pas les liens, uniquement le texte 
> > > visible. Il
> > > n'y aurait pas vraiment de discussion si c'était aussi immédiat.​
> > >
> > > --
> > > Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous 
> > > désinscrire
> > > Les archives de la liste sont disponibles à 
> > > https://listarchives.libreoffice.org/fr/users/
> > > Privacy Policy: https://www.documentfoundation.org/privacy


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy