Discussion :

[cacticola]

Bonjour à toutes et à tous,

Si l'ensemble des liens hypertextes présents sur du TEXTE peuvent être supprimés simultanément (CTRL + Maj + F9), existe-t-il, s'il vous plaît, un moyen de faire disparaître, tout aussi rapidement, l'ensemble des liens hypertextes présents sur des IMAGES, OBJETS... ?

Je vous remercie pour votre aide.

Cordialement,

Cacticola

[Sepia]

Salut Cacticola,

C'est identique. Pour simplifier, sélectionne tout (<Ctrl>+>A>) et fait "Rompre les liaisons" (<Ctrl>+<Shift>+<F9>).

@+

[cacticola]

Bonjour Sépia,

Je te remercie pour ta solution.

Cependant, je ne parviens pas à l'appliquer.

En effet, dès que le curseur de la souris est positionné sur l'une des images, l'index de la "main" apparaît et me dirige systématiquement sur le Web d'appartenance, m'empêchant, ainsi, de sélectionner les autres images et / ou objets !

Cordialement,

Cacticola

[Didier Gonard]

Bonsoir,

Brut, je ne sais pas, mais avec une macro toute simple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Nettoyage()
Dim I As Long
 
For I = 1 To ActiveDocument.Hyperlinks.Count
   ActiveDocument.Hyperlinks(1).Delete
Next I
End Sub

Teste sur une copie pour voir par rapport à ton document ...

cordialement,

Didier

[cacticola]

Ormonth,

La macro, que tu qualifies de "toute simple", va me permettre d’aller me coucher plus tôt que je ne l’espérais…

Ton travail est une MERVEILLE.

Sur un document de quelque 200 pages, contenant pratiquement quatre fois plus de liens sur images et autres objets, je vais pouvoir mettre un terme au « méchant » travail de fourmi.

Grand MERCI à toi, Ormonth, à Sépia et au forum pour le soutien apporté aux lecteurs et questionneurs en tous genres !

Cordialement,

Cacticola

[Sepia]

Salut Cacticola,

En effet, dès que le curseur de la souris est positionné sur l'une des images, l'index de la "main" apparaît et me dirige systématiquement sur le Web d'appartenance, m'empêchant, ainsi, de sélectionner les autres images et / ou objets !

Mais si tu suis ce que je t'ai indiqué, tu dois faire "Tout Sélectionner" (<Ctrl>+<A>) et il n'y a pas alors de problème de curseur et de sélection.

@+

[cacticola]

Bonsoir, Sépia,

Je ne parviens, hélas, pas à appliquer tes indications.

Cela vient-il de ma configuration ou de mon ignorance ?

Ci-joint une page, à titre d'exemple, pour montrer que la manipulation s'avère impossible (du moins sur mon poste).

Cordialement,

Cacticola

[Heureux-oli]

Salut,

Autre option, ne pas utiliser de compteur et boucler sur les HyperLinks

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub delHypL()
Dim hL As Hyperlink
 
For Each hL In ActiveDocument.Hyperlinks
hL.Delete
Next hL
 
End Sub

[cacticola]

Bonsoir, Heureux-oli,

Également un grand merci pour l’option : « Autre option, ne pas utiliser de compteur et boucler sur les HyperLinks ».

Je suis tristement ignorante et avoue n’avoir fait que recopier ladite option qui, elle aussi, fonctionne A MERVEILLE.

MILLE FOIS MERCI à chacun pour l'aide apportée.

Cordialement,

Cacticola

[Didier Gonard]

Bonsoir,

CTRL+Mal+F9 = Supprimer Liaison Champs

Et n'est donc pas actif sur les Hyperliens des images.

CTRL+Mal+F9 correspond à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub NettoyageSpé()
   ActiveDocument.Fields.Unlink
End Sub

Bonne nuit,

Didier

[cacticola]

Bonne nuit, itou, et encore merci !

Cacticola