Formulaire de demande d'aide

fr-users
#1

Bonjour

Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide (http://fr.libreoffice.org/assistance/).
Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.

De la part de : -
- guillaume.serrand@openlog.fr

Texte de la question : -
- Bonjour,

J'ai un document Libreoffice Writter très long incorporant énormément de lien hypertextes. J'aimerais pourvoir tous les sélectionner (ensemble ou un par un), supprimer l'hyperlien et appliquer un style personnalisé. Malgré de nombreuses recherches, je n'ai pas réussi à réaliser de macro capable de faire cela (j'ai très peu de compétences dans ce domaine)

Pourriez vous m'aider ?

Merci

#2

Bonjour

Message du 12/06/14 12:29
J'ai un document Libreoffice Writter très long incorporant énormément
de lien hypertextes. J'aimerais pourvoir tous les sélectionner (ensemble
ou un par un), supprimer l'hyperlien et appliquer un style personnalisé.
Malgré de nombreuses recherches, je n'ai pas réussi à réaliser de macro
capable de faire cela

Pas besoin de macro pour cela :

1. Édition> Rechercher & remplacer (Ctrl+H)
2. Rechercher http://[^[:SPACE:]]*
3. Cliquer sur Autres options pour cocher Expressions régulières
4. Cliquer sur Tout rechercher.

Les hyperliens devraient être sélectionnés (la recherche sélectionne
tout ce qui commence par http: non suivi d'un espace).

5. Fermer le dialogue en faisant attention de ne pas dé-sélectionner.
6. Cliquer droit au-dessus d'un des hyperliens sélectionnés et choisir
"Supprimer l'hyperlien" dans le menu (ceci ne supprime pas le texte des
hyperliens).
7. Le texte étant encore sélectionné il suffit de lui appliquer le
style de caractère voulu...

Si tu réponds, merci de penser à utiliser la fonction "répondre à tous"
du logiciel de courrier électronique ou du webmail de façon que la liste
reçoive la réponse.

Cordialement
Pierre-Yves

#3

Suite...

Je me rends compte que ma réponse précédente suppose que tes
hyperliens ne sont que des liens "http...". Ce n'est pas
forcément le cas. Merci de préciser si nécessaire en faisant
"répondre à tous" :slight_smile:

Cordialement
Pierre-Yves

#4

Effectivement ce n'est pas le cas, ce sont des mots simples ou des phrases comportant également des chiffres ou des caractères spéciaux.

Merci beaucoup pour ton aide :slight_smile:

Cordialement,

Guillaume

-----Message d'origine-----

#5

Bonjour

Message du 12/06/14 15:48
Effectivement ce n'est pas le cas, ce sont des mots simples ou des phrases
comportant également des chiffres ou des caractères spéciaux.

Ok, alors ci-dessous une macro qui sélectionne les hyperliens
(à exécuter depuis le document, pas depuis l'EDI).
Nota: sauf bonne suprise les liens figurant dans des cadres ne devraient
pas être trouvés mais c'est déjà ça...

option explicit

Sub PysSelectionnerHyperliens

Dim oDocument As Object, oSearch As Object, oTrouve as object

Dim oAttributes(0) As New com.sun.star.beans.PropertyValue

oDocument = ThisComponent
oSearch = oDocument.CreateSearchDescriptor
oSearch.setValueSearch(False)

oAttributes(0).Name = "HyperLinkURL"
oAttributes(0).Value = ""

oSearch.SetSearchAttributes(oAttributes)

oTrouve = oDocument.findAll (oSearch())
odocument.CurrentController.select(oTrouve)

End Sub

Si tu réponds merci de penser à utiliser la fonction Répondre à tous du
logiciel de messagerie ou du webmail de façon que la liste reçoive la
réponse.

Cordialement
Pierre-Yves