Bonjour,
voilà, j'ai utilisé une fois cette macro et cela a fonctionné
inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message
d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de
ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je
l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens()
'macro écrite par anacoluthe
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Freddy Govaerts
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais "Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que dans une partie sélectionnée du texte.
Merci
"Freddy Govaerts" a écrit dans le message de news: 4a2a4cda$0$2847$
Bonjour, voilà, j'ai utilisé une fois cette macro et cela a fonctionné inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens() 'macro écrite par anacoluthe Dim i As Integer For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(1).Delete Next i End Sub
Merci de votre aide.
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais
"Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé
manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que dans
une partie sélectionnée du texte.
Merci
"Freddy Govaerts" <freddy.govaerts@skynet.be> a écrit dans le message de
news: 4a2a4cda$0$2847$ba620e4c@news.skynet.be...
Bonjour,
voilà, j'ai utilisé une fois cette macro et cela a fonctionné
inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message
d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de
ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je
l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens()
'macro écrite par anacoluthe
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais "Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que dans une partie sélectionnée du texte.
Merci
"Freddy Govaerts" a écrit dans le message de news: 4a2a4cda$0$2847$
Bonjour, voilà, j'ai utilisé une fois cette macro et cela a fonctionné inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens() 'macro écrite par anacoluthe Dim i As Integer For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(1).Delete Next i End Sub
Merci de votre aide.
heureux-oli
Salut,
Oui, c'est possible.
Dans les lignes
For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(i).Delete
Tu traite tous le document. Si tu veux la même chose sur un morceau de document, il faut travailler avec une sélection.
For i = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(i).Delete Next i
Selection représente ce qui est sélectionné dans le texte, si rien n'est sélectionné, il s'agit du point d'insertion, l'endroit où se trouve le curseur de la souris.
"Freddy Govaerts" a écrit dans le message de news: 4a2a5764$0$2865$
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais "Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que dans une partie sélectionnée du texte.
Merci
"Freddy Govaerts" a écrit dans le message de news: 4a2a4cda$0$2847$
Bonjour, voilà, j'ai utilisé une fois cette macro et cela a fonctionné inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens() 'macro écrite par anacoluthe Dim i As Integer For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(1).Delete Next i End Sub
Merci de votre aide.
Salut,
Oui, c'est possible.
Dans les lignes
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(i).Delete
Tu traite tous le document.
Si tu veux la même chose sur un morceau de document, il faut travailler avec
une sélection.
For i = 1 To Selection.Hyperlinks.Count
Selection.Hyperlinks(i).Delete
Next i
Selection représente ce qui est sélectionné dans le texte, si rien n'est
sélectionné, il s'agit du point d'insertion, l'endroit où se trouve le
curseur de la souris.
En espérant avoir apporté une solution.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
"Freddy Govaerts" <freddy.govaerts@skynet.be> a écrit dans le message de
news: 4a2a5764$0$2865$ba620e4c@news.skynet.be...
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais
"Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé
manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que
dans une partie sélectionnée du texte.
Merci
"Freddy Govaerts" <freddy.govaerts@skynet.be> a écrit dans le message de
news: 4a2a4cda$0$2847$ba620e4c@news.skynet.be...
Bonjour,
voilà, j'ai utilisé une fois cette macro et cela a fonctionné
inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message
d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau
de ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je
l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens()
'macro écrite par anacoluthe
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub
For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(i).Delete
Tu traite tous le document. Si tu veux la même chose sur un morceau de document, il faut travailler avec une sélection.
For i = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(i).Delete Next i
Selection représente ce qui est sélectionné dans le texte, si rien n'est sélectionné, il s'agit du point d'insertion, l'endroit où se trouve le curseur de la souris.
"Freddy Govaerts" a écrit dans le message de news: 4a2a5764$0$2865$
J'ai trouvé le problème. Dans deux liens hypertextes, quand je choisissais "Modifier le lien hypertexte", aucun lien n'était renseigné. J'ai supprimé manuellement ces liens et la macro fonctionne comme il faut.
Serait-il possible de modifier la macro pour ne supprimer les liens que dans une partie sélectionnée du texte.
Merci
"Freddy Govaerts" a écrit dans le message de news: 4a2a4cda$0$2847$
Bonjour, voilà, j'ai utilisé une fois cette macro et cela a fonctionné inpeccablement. Aujourd'hui, j'ai voulu la réutilisée et j'ai le message d'erreur suivant : Erreur d'exécution '4198' et elle se situe au niveau de ActiveDocument.Hyperlinks(1).Delete.
Les liens hypertextes proviennent de pages web (comme la 1er fois que je l'ai utilisé) que j'ai copier/coller.
Sub SupprimerTousLiens() 'macro écrite par anacoluthe Dim i As Integer For i = 1 To ActiveDocument.Hyperlinks.Count ActiveDocument.Hyperlinks(1).Delete Next i End Sub