supprimer tous les liens http d un document

Bonjour,

La réponse est dans la faq !
http://faqword.free.fr/articles.php?lng=fr&pg$0

Circé
http://faqword.free.fr/

xoco wrote:
|| Salut a tous,
|| Je cherche le moyen de supprimer tous les liens hypertexte de mon
|| document apres un copier coller a partir d internet. Savez vous ce
|| qu il faut faire???
|| A+
|| Xoco

Salut,
une petite procédure ... http://www.ilyapa.net/plusDeLien.bas
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Circé" <circé@aea.gr> a écrit dans le message de news:
#QaZ6F9TEHA.3332@TK2MSFTNGP12.phx.gbl...

Bonjour,

La réponse est dans la faq !
http://faqword.free.fr/articles.php?lng=fr&pg$0

Circé
http://faqword.free.fr/

xoco wrote:
|| Salut a tous,
|| Je cherche le moyen de supprimer tous les liens hypertexte de mon
|| document apres un copier coller a partir d internet. Savez vous ce
|| qu il faut faire???
|| A+
|| Xoco

Bonjour Pascal,

Salut,
une petite procédure ... http://www.ilyapa.net/plusDeLien.bas

Merci, mais quelque peu superfétatoire !!!! ;-))

Circé

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Circé" <circé@aea.gr> a écrit dans le message de news:
#QaZ6F9TEHA.3332@TK2MSFTNGP12.phx.gbl...

Bonjour,

La réponse est dans la faq !
http://faqword.free.fr/articles.php?lng=fr&pg$0

Circé
http://faqword.free.fr/

xoco wrote:
|| Salut a tous,
|| Je cherche le moyen de supprimer tous les liens hypertexte de mon
|| document apres un copier coller a partir d internet. Savez vous ce
|| qu il faut faire???
|| A+
|| Xoco

Bonjour !

'Circé' nous a écrit ...

La réponse est dans la faq !
http://faqword.free.fr/articles.php?lng=fr&pg$0

hi hi hi pour une fois je ne suis PAS D'ACCORD du tout avec Circé !!!

- Supprimer tous les liens hypertexte

Soit la phrase suivante:
"Toutes les réponses Word sont _dans_la_FAQ_ à l’eau grâce à m@rina"
avec ' _dans_la_FAQ_ ' un lien hypexte vers la FAQ se présentant
classiquement dans un style souligné bleu.

On souhaite supprimer le *lien*
littéralement : Clic droit / Supprimer le lien hypertexte

La technique proposée par Circé dans la FAQ
ou dans la deuxième macro de Pascal supprime
et le TEXTE et le LIEN de tous les liens hypertexte.
Au lieu de la phrase
"Toutes les réponses Word sont dans la FAQ à l’eau grâce à m@rina"
nous obtiendrons
"Toutes les réponses Word sont à l’eau grâce à m@rina"

Quand on copie une page web dans Word, la plupart du temps
on désire supprimer les liens, pas le texte des liens. Souvent
même on se contenterait d'une suppression du STYLE des liens.

Aussi la soluce de la FAQ évoquée par Circé qui supprime
par Rechercher-Remplacer les champs HYPERLINK (ou LIENHYPERTEXTE)
ne me semble pas convenir à la suppression de tous les liens
telle qu'on se l'imagine le plus souvent :-[

Si le document ne contient AUCUN AUTRE CHAMP que les liens
hypertexte, et c'est d'ailleurs le cas le plus fréquent quand
on copie une page HTML, il est un moyen rapide et simple :
Ctrl+A suivi de Ctrl+Maj+F9
à savoir 'déchamper' tous les champs.

Si le document contient d'autres champs actifs, alors il faut
'délier' les champs hypertexte avec une macro

Sub SupprimerTousLiens()
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub

Notez Hyperlinks(1).Delete et non Hyperlinks(i).Delete
(la collection des Hyperlinks perd chaque fois son 1er item)
C'est aussi le principe de la première macro de Pascal.

ou encore sous une forme voisine:

Sub DelierTousLiens()
Dim champ As Field
For Each champ In ActiveDocument.Fields
If champ.Type = wdFieldHyperlink Then champ.Unlink
Next champ
End Sub

Je ne sais en quel animal Circé va me transformer
pour avoir aussi ouvertement critiqué son article
http://faqword.free.fr/articles.php?lng=fr&pg$0
Hi han ! Je m'attends au pire ...... :-) ))))

Anacoluthe
« Pourquoi contredire une femme ? Il est tellement
plus simple d'attendre qu'elle change d'avis. »
- Jean ANOUILH

Bonjour anacoluthe,

Et ça fait plus de 3 ans que c'est dans la faq!
http://minilien.com/?idy5PaWvYx

mais ce n'est pas avec moi que tu ne dois pas être d'accord, car je n'ai
fait que recopier bêtement... Eh oui, cela m'arrive, quand j'ai
confiance, de recopier bêtement... J'adore !
Mais bon, ça fait la 2e fois que je me fais remonter les bretelles pour
la même question, donc dorénavant je vérifierai tout avant de recopier
dans la faq et attention, si les solutions proposées ne fonctionnent pas!...

Circé

"L'homme est un bipède omnivore qui porte des bretelles"
(Thomas Carlyle)

Bonjour !

'Circé' nous a écrit ...

La réponse est dans la faq !
http://faqword.free.fr/articles.php?lng=fr&pg$0

hi hi hi pour une fois je ne suis PAS D'ACCORD du tout avec Circé !!!

- Supprimer tous les liens hypertexte

Soit la phrase suivante:
"Toutes les réponses Word sont _dans_la_FAQ_ à l’eau grâce à m@rina"
avec ' _dans_la_FAQ_ ' un lien hypexte vers la FAQ se présentant
classiquement dans un style souligné bleu.

On souhaite supprimer le *lien*
littéralement : Clic droit / Supprimer le lien hypertexte

La technique proposée par Circé dans la FAQ
ou dans la deuxième macro de Pascal supprime
et le TEXTE et le LIEN de tous les liens hypertexte.
Au lieu de la phrase
"Toutes les réponses Word sont dans la FAQ à l’eau grâce à m@rina"
nous obtiendrons
"Toutes les réponses Word sont à l’eau grâce à m@rina"

Quand on copie une page web dans Word, la plupart du temps
on désire supprimer les liens, pas le texte des liens. Souvent
même on se contenterait d'une suppression du STYLE des liens.

Aussi la soluce de la FAQ évoquée par Circé qui supprime
par Rechercher-Remplacer les champs HYPERLINK (ou LIENHYPERTEXTE)
ne me semble pas convenir à la suppression de tous les liens
telle qu'on se l'imagine le plus souvent :-[

Si le document ne contient AUCUN AUTRE CHAMP que les liens
hypertexte, et c'est d'ailleurs le cas le plus fréquent quand
on copie une page HTML, il est un moyen rapide et simple :
Ctrl+A suivi de Ctrl+Maj+F9
à savoir 'déchamper' tous les champs.

Si le document contient d'autres champs actifs, alors il faut
'délier' les champs hypertexte avec une macro

Sub SupprimerTousLiens()
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub

Notez Hyperlinks(1).Delete et non Hyperlinks(i).Delete
(la collection des Hyperlinks perd chaque fois son 1er item)
C'est aussi le principe de la première macro de Pascal.

ou encore sous une forme voisine:

Sub DelierTousLiens()
Dim champ As Field
For Each champ In ActiveDocument.Fields
If champ.Type = wdFieldHyperlink Then champ.Unlink
Next champ
End Sub

Je ne sais en quel animal Circé va me transformer
pour avoir aussi ouvertement critiqué son article
http://faqword.free.fr/articles.php?lng=fr&pg$0
Hi han ! Je m'attends au pire ...... :-) ))))

Anacoluthe
« Pourquoi contredire une femme ? Il est tellement
plus simple d'attendre qu'elle change d'avis. »
- Jean ANOUILH

Bonsoir,

Mais bon, ça fait la 2e fois que je me fais remonter les bretelles pour
la même question, donc dorénavant je vérifierai tout avant de recopier
dans la faq et attention, si les solutions proposées ne fonctionnent
pas!...

Pas une souriette ? Hum, pas bon signe, ca.
Dis Circé, t'es pas fâchée ? Vas-tu faire la grève du zèle ?
Ce n'est pas parce qu'Anacoluthe blabla machin truc (...) qu'il faut
enlever la faq. On l'aime bien, nous cette faq :o)

@+
FxM

Bonjour !

'FxM' nous a écrit ...

Dis Circé, t'es pas fâchée ? Vas-tu faire la grève du zèle ?
Ce n'est pas parce qu'Anacoluthe blabla machin truc (...) qu'il faut
enlever la faq. On l'aime bien, nous cette faq :o)

mdr :-D

Hé FX ! C'est Circé la magicienne, pas l'irascible Astarté !!!
Même au plus mouillé de la fakalo - le maelström bleu,
tu te souviens ? - la faq est restée accessible ! Et depuis,
elle est encore mieux ! :-) Circé n'est pas connue pour se fâcher,
elle a juste le don de métamorphoser en divers animaux
certains bipèdes bornés....... Hi han ! :-D )))

Anacoluthe
« Si tous disent que tu es un âne,
alors il est temps de braire. »
- Le Talmud

Bonsoir Anacoluthe,

mdr :-D

Hé FX ! C'est Circé la magicienne, pas l'irascible Astarté !!!
Même au plus mouillé de la fakalo - le maelström bleu,
tu te souviens ? - la faq est restée accessible !
Exact. Durant quelques jours, nous avions retrouvé les plaisirs du

chemin des écoliers :o) C'était le bon temps (soupir)

Et depuis, elle est encore mieux ! :-)
Parles-tu de la faq ou de Circé ? A bien y réfléchir ... les deux !

Circé n'est pas connue pour se fâcher,
elle a juste le don de métamorphoser en divers animaux
certains bipèdes bornés....... Hi han ! :-D )))
... des noms, des noms ... ;o)

Allez, dodo. Demain, y'a école :o)


@+
FxM

PSsiiit, Circé ... t'es fâchée ?

Bonsoir,

Bonsoir Anacoluthe,

mdr :-D

Hé FX ! C'est Circé la magicienne, pas l'irascible Astarté !!!
Même au plus mouillé de la fakalo - le maelström bleu,
tu te souviens ? - la faq est restée accessible !

Exact. Durant quelques jours, nous avions retrouvé les plaisirs du
chemin des écoliers :o) C'était le bon temps (soupir)

Eh bien puisque c'était le bon temps, on peut y revenir... sans problème
! Suffit que je fasse un lien auto qui renvoie sur la fakalo qui renvoie
sur la faq de maintenant qui renverra sur la fakalo, qui renverra... pas
mal, non ?...
Bon, j'y réfléchis...
En attendant, cet article de la faq est très bon, je ne sais pas ce
qu'il y a à lui reprocher ! ;-)))
http://faqword.free.fr/articles.php?lng=fr&pg$0


Circé

Bonjour FxM

Et depuis, elle est encore mieux ! :-)
Parles-tu de la faq ou de Circé ? A bien y réfléchir ... les deux !

:-) :-) :-) :-)