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
'----------------------------------------
"" a écrit dans le message de groupe 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
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
'----------------------------------------
"d@n" <sedesslg.candiNOSPAM@swing.be> a écrit dans le message de groupe de
discussion :
e7HcZuDkKHA.4872@TK2MSFTNGP05.phx.gbl...
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
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
'----------------------------------------
"" a écrit dans le message de groupe 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
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
'----------------------------------------
"" a écrit dans le message de groupe 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
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
'----------------------------------------
"d@n" <sedesslg.candiNOSPAM@swing.be> a écrit dans le message de groupe de
discussion :
e7HcZuDkKHA.4872@TK2MSFTNGP05.phx.gbl...
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
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
'----------------------------------------
"" a écrit dans le message de groupe 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
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à !
"" a écrit dans le message de groupe de
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" a écrit dans le message de news: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
'----------------------------------------
"" a écrit dans le message de groupe
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
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à !
"d@n" <sedesslg.candiNOSPAM@swing.be> a écrit dans le message de groupe de
discussion :
eG5X$OFkKHA.1864@TK2MSFTNGP05.phx.gbl...
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" <michdenis@hotmail.com> a écrit dans le message de news:
E35CAFB5-D2A1-4B72-99D9-5135CE7DE145@microsoft.com...
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
'----------------------------------------
"d@n" <sedesslg.candiNOSPAM@swing.be> a écrit dans le message de groupe
de
discussion :
e7HcZuDkKHA.4872@TK2MSFTNGP05.phx.gbl...
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
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à !
"" a écrit dans le message de groupe de
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" a écrit dans le message de news: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
'----------------------------------------
"" a écrit dans le message de groupe
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
| 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.
| 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.
| 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.
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
'------------------------------------
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
'------------------------------------
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
'------------------------------------
| 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.
| 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.
| 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.
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.
"" a écrit dans le message de groupe de
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" a écrit dans le message de news:
| 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.
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.
"d@n" <sedesslg.candiNOSPAM@swing.be> a écrit dans le message de groupe de
discussion :
e18zVfGkKHA.4356@TK2MSFTNGP06.phx.gbl...
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" <michdenis@hotmail.com> a écrit dans le message de news:
eY66Y1FkKHA.4500@TK2MSFTNGP06.phx.gbl...
| 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.
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.
"" a écrit dans le message de groupe de
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" a écrit dans le message de news:
| 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.