supprimer lien hypertexte

Le
d
Bonjour,
y-a-t-il un moyen pour supprimer tous les liens hypertextes d'un fichier
Word (+/- 150 liens sur la page !) d'un seul coup svp ?
d'habitude je fais : clic droit/lien hypertexte/supprimer le lien, mais
là ça fait bcp de clics :=(((

merci d'avance

Dany
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20926111
Bonjour,

Dans un module standard de ton application,

Tu peux copier cette petite macro :

Telle qu'écrite, il est présumé que le document dans lequel
tu écris la macro est le document actif (à l'écran) lors de
l'exécution de la macro.

Sinon, tu peux remplacer cette ligne de code :
For Each X In ActiveDocument.Hyperlinks
Par :
For Each X In Documents("NomDuFichier.Doc").Hyperlinks
ou
For Each X In ThisDocument.Hyperlinks

'----------------------------------------
Sub test()
Dim X As Hyperlink
For Each X In ActiveDocument.Hyperlinks
X.Delete
Next
End Sub
'----------------------------------------



""
Bonjour,
y-a-t-il un moyen pour supprimer tous les liens hypertextes d'un fichier
Word (+/- 150 liens sur la page !) d'un seul coup svp ?
d'habitude je fais : clic droit/lien hypertexte/supprimer le lien, mais
là... ça fait bcp de clics... :=(((

merci d'avance

Dany
d
Le #20926351
Bonjour,
je ne manipule que rarement les macros, peux-tu être plus explicite à propos
de ta phrase "Dans un module standard de ton application," stp ?
je suppose que je fais outils/macro/... et puis... ?
merci d'avance

Dany



"michdenis"
Bonjour,

Dans un module standard de ton application,

Tu peux copier cette petite macro :

Telle qu'écrite, il est présumé que le document dans lequel
tu écris la macro est le document actif (à l'écran) lors de
l'exécution de la macro.

Sinon, tu peux remplacer cette ligne de code :
For Each X In ActiveDocument.Hyperlinks
Par :
For Each X In Documents("NomDuFichier.Doc").Hyperlinks
ou
For Each X In ThisDocument.Hyperlinks

'----------------------------------------
Sub test()
Dim X As Hyperlink
For Each X In ActiveDocument.Hyperlinks
X.Delete
Next
End Sub
'----------------------------------------



"" discussion :

Bonjour,
y-a-t-il un moyen pour supprimer tous les liens hypertextes d'un fichier
Word (+/- 150 liens sur la page !) d'un seul coup svp ?
d'habitude je fais : clic droit/lien hypertexte/supprimer le lien, mais
là... ça fait bcp de clics... :=(((

merci d'avance

Dany



michdenis
Le #20926341
Tu ouvres la fenêtre de l'éditeur de code :
raccourci clavier : Alt + F11

Dans la section de gauche de la fenêtre appelée "Projet",
tu t'assures que c'est bien ton projet qui est sélectionné.
À partir de la barre des menus, tu appelles la commande
Insertion / Module. Une page blanche va s'ajouter et tu
copies la macro dans la page blanche.

Pour exécuter la macro, tu peux placer le curseur entre la
ligne Sub et End Sub de la macro et tu cliques sur le bouton
affichant l'icône pointant vers la droite... ou par le menu
"Exécution / Exécuter la macro.

Tu peux aussi revenir à la fenêtre de ton document et utiliser
le raccourci clavier Alt + F8. Dans la fenêtre ouvrante, tu
sélectionnes la macro et tu cliques sur le bouton exécuter.

Voilà !



"" eG5X$
Bonjour,
je ne manipule que rarement les macros, peux-tu être plus explicite à propos
de ta phrase "Dans un module standard de ton application," stp ?
je suppose que je fais outils/macro/... et puis... ?
merci d'avance

Dany



"michdenis"
Bonjour,

Dans un module standard de ton application,

Tu peux copier cette petite macro :

Telle qu'écrite, il est présumé que le document dans lequel
tu écris la macro est le document actif (à l'écran) lors de
l'exécution de la macro.

Sinon, tu peux remplacer cette ligne de code :
For Each X In ActiveDocument.Hyperlinks
Par :
For Each X In Documents("NomDuFichier.Doc").Hyperlinks
ou
For Each X In ThisDocument.Hyperlinks

'----------------------------------------
Sub test()
Dim X As Hyperlink
For Each X In ActiveDocument.Hyperlinks
X.Delete
Next
End Sub
'----------------------------------------



"" discussion :

Bonjour,
y-a-t-il un moyen pour supprimer tous les liens hypertextes d'un fichier
Word (+/- 150 liens sur la page !) d'un seul coup svp ?
d'habitude je fais : clic droit/lien hypertexte/supprimer le lien, mais
là... ça fait bcp de clics... :=(((

merci d'avance

Dany



d
Le #20926711
1) super ! merci ! ;-))
2) comment enregistrer cette macro pour m'en resservir à chaque fois que
j'en aurais besoin stp ?
3) tous les liens ne se sont pas supprimés d'un coup.. j'ai dû cliquer
plusieurs fois sur la flèche (exécuter la macro) pour y arriver, je ne sais
pas pourquoi..
tous les liens avaient pourtant l'air semblables.. (sans critique hein !! si
j'avais dû le faire à la main... bonjour le mal au doigt ! lol)

merci !

Dany

"michdenis"
Tu ouvres la fenêtre de l'éditeur de code :
raccourci clavier : Alt + F11

Dans la section de gauche de la fenêtre appelée "Projet",
tu t'assures que c'est bien ton projet qui est sélectionné.
À partir de la barre des menus, tu appelles la commande
Insertion / Module. Une page blanche va s'ajouter et tu
copies la macro dans la page blanche.

Pour exécuter la macro, tu peux placer le curseur entre la
ligne Sub et End Sub de la macro et tu cliques sur le bouton
affichant l'icône pointant vers la droite... ou par le menu
"Exécution / Exécuter la macro.

Tu peux aussi revenir à la fenêtre de ton document et utiliser
le raccourci clavier Alt + F8. Dans la fenêtre ouvrante, tu
sélectionnes la macro et tu cliques sur le bouton exécuter.

Voilà !



"" discussion :
eG5X$
Bonjour,
je ne manipule que rarement les macros, peux-tu être plus explicite à
propos
de ta phrase "Dans un module standard de ton application," stp ?
je suppose que je fais outils/macro/... et puis... ?
merci d'avance

Dany



"michdenis"
Bonjour,

Dans un module standard de ton application,

Tu peux copier cette petite macro :

Telle qu'écrite, il est présumé que le document dans lequel
tu écris la macro est le document actif (à l'écran) lors de
l'exécution de la macro.

Sinon, tu peux remplacer cette ligne de code :
For Each X In ActiveDocument.Hyperlinks
Par :
For Each X In Documents("NomDuFichier.Doc").Hyperlinks
ou
For Each X In ThisDocument.Hyperlinks

'----------------------------------------
Sub test()
Dim X As Hyperlink
For Each X In ActiveDocument.Hyperlinks
X.Delete
Next
End Sub
'----------------------------------------



"" de
discussion :

Bonjour,
y-a-t-il un moyen pour supprimer tous les liens hypertextes d'un fichier
Word (+/- 150 liens sur la page !) d'un seul coup svp ?
d'habitude je fais : clic droit/lien hypertexte/supprimer le lien, mais
là... ça fait bcp de clics... :=(((

merci d'avance

Dany






michdenis
Le #20926801
| 2) comment enregistrer cette macro pour m'en resservir à chaque fois que
***je suppose que si tu répètes les opérations suggérées
dans le projet du modèle "Normal", les macros devraient
apparaître dans la fenêtre que tu ouvres par "Alt + F8"
dans tous les documents que tu ouvres !

| 3) tous les liens ne se sont pas supprimés d'un coup..
*** Je n'ai pas une réponse précise à cette question...Est-ce
possible que ton document possédait des sauts de page dans
ton document ? Ce n'est qu'une suggestion, tu devrais
avoir un complément de réponse des spécialistes de Word
sous peu.
michdenis
Le #20926901
Si tu as quelques instants, tu peux toujours essayer ceci :
(pas tester)

'------------------------------------
Sub test()
Dim B As Break, P As Page
Dim Pg As Pages
Dim Bks As Breaks
With ActiveDocument
Set Pg = .ActiveWindow.Panes(1).Pages
For Each P In Pg
For Each B In P.Breaks
For Each X In B.Range.Hyperlinks
X.Delete
Next
Next
Next
End With
End Sub
'------------------------------------
d
Le #20927491
Bonjour,
en fait je ne comprends bien ce que je dois faire une fois que j'ai ouvert
une page vierge (d'après normal.dot) ...
je me retrouve avec ma fenêtre de macro et puis... dois-je l'enregister, le
fermer ou autre chose encore ?..
merci

"michdenis"

| 2) comment enregistrer cette macro pour m'en resservir à chaque fois que
***je suppose que si tu répètes les opérations suggérées
dans le projet du modèle "Normal", les macros devraient
apparaître dans la fenêtre que tu ouvres par "Alt + F8"
dans tous les documents que tu ouvres !

| 3) tous les liens ne se sont pas supprimés d'un coup..
*** Je n'ai pas une réponse précise à cette question...Est-ce
possible que ton document possédait des sauts de page dans
ton document ? Ce n'est qu'une suggestion, tu devrais
avoir un complément de réponse des spécialistes de Word
sous peu.





d
Le #20927481
elle ne fonctionne pas... rien en se passe, mais c'ets pas grave, l'autre
fonctionne, c'ets ce qui compte ;-))


"michdenis" OHZEl$
Si tu as quelques instants, tu peux toujours essayer ceci :
(pas tester)

'------------------------------------
Sub test()
Dim B As Break, P As Page
Dim Pg As Pages
Dim Bks As Breaks
With ActiveDocument
Set Pg = .ActiveWindow.Panes(1).Pages
For Each P In Pg
For Each B In P.Breaks
For Each X In B.Range.Hyperlinks
X.Delete
Next
Next
Next
End With
End Sub
'------------------------------------






michdenis
Le #20927791
C'est comme précédemment,

Dans la fenêtre de l'éditeur de code,
dans la section de gauche, tu sélectionnes
le projet Normal.dot ... ouvre son arborescence
en cliquant sur le signe + à la gauche de son nom
tu ajoutes un module standard à l'aide du menu insertion.
et c'est dans cette page blanche que tu copies la macro.
Après la copie, tu peux cliquer sur l'icône "enregistrer"
pour sauvegarder les changements au document "normal"
C'est tout.

N.B. Si le contenu de ton document n'est pas confidentiel,
tu peux me l'envoyer à mon l'adresse Hotmail... question de
m'amuser à développer et tester la macro.



""
Bonjour,
en fait je ne comprends bien ce que je dois faire une fois que j'ai ouvert
une page vierge (d'après normal.dot) ...
je me retrouve avec ma fenêtre de macro et puis... dois-je l'enregister, le
fermer ou autre chose encore ?..
merci

"michdenis"

| 2) comment enregistrer cette macro pour m'en resservir à chaque fois que
***je suppose que si tu répètes les opérations suggérées
dans le projet du modèle "Normal", les macros devraient
apparaître dans la fenêtre que tu ouvres par "Alt + F8"
dans tous les documents que tu ouvres !

| 3) tous les liens ne se sont pas supprimés d'un coup..
*** Je n'ai pas une réponse précise à cette question...Est-ce
possible que ton document possédait des sauts de page dans
ton document ? Ce n'est qu'une suggestion, tu devrais
avoir un complément de réponse des spécialistes de Word
sous peu.





d
Le #20927971
ok, ça marche, mais depuis le début je n'avais qu'une fenêtre et pas deux,
je ne voyais donc pas les projets...

pour ce qui est du fichier, je ne saurais plus te l'envoyer car dès que je
l'ouvre, que je clique sur activer ou désactiver les macros, de toute façon
il n'y a plus aucun lien hypertexte...

mais je viens de réessayer en collant une page web dans un doc et ça marche,
sauf que c'est comme tantôt, je dois cliquer plusieurs fois sur la flèche,
voilà !

grand merci en tout cas !

à+

Dany


"michdenis"
C'est comme précédemment,

Dans la fenêtre de l'éditeur de code,
dans la section de gauche, tu sélectionnes
le projet Normal.dot ... ouvre son arborescence
en cliquant sur le signe + à la gauche de son nom
tu ajoutes un module standard à l'aide du menu insertion.
et c'est dans cette page blanche que tu copies la macro.
Après la copie, tu peux cliquer sur l'icône "enregistrer"
pour sauvegarder les changements au document "normal"
C'est tout.

N.B. Si le contenu de ton document n'est pas confidentiel,
tu peux me l'envoyer à mon l'adresse Hotmail... question de
m'amuser à développer et tester la macro.



"" discussion :

Bonjour,
en fait je ne comprends bien ce que je dois faire une fois que j'ai ouvert
une page vierge (d'après normal.dot) ...
je me retrouve avec ma fenêtre de macro et puis... dois-je l'enregister,
le
fermer ou autre chose encore ?..
merci

"michdenis"

| 2) comment enregistrer cette macro pour m'en resservir à chaque fois
que
***je suppose que si tu répètes les opérations suggérées
dans le projet du modèle "Normal", les macros devraient
apparaître dans la fenêtre que tu ouvres par "Alt + F8"
dans tous les documents que tu ouvres !

| 3) tous les liens ne se sont pas supprimés d'un coup..
*** Je n'ai pas une réponse précise à cette question...Est-ce
possible que ton document possédait des sauts de page dans
ton document ? Ce n'est qu'une suggestion, tu devrais
avoir un complément de réponse des spécialistes de Word
sous peu.








Publicité
Poster une réponse
Anonyme