supprimer liens hypertexte *aussi* dans les zones de texte
3 réponses
AB
Hello la compagnie,
La macro ci-après supprime tous les liens hypertexte d'un document,
l'enregistre et le ferme, *sauf* si les hyperliens sont dans une zone de
texte.
Si quelqu'un a une idée pour qu'elle fonctionne *aussi* dans les zones de
texte, ça m'arrangerait pas mal. (Car après, j'envoie cette macro via la
batchmacro d'Anacoluthe (une idée absolument géniale !) sur environ 500
documents).
Muchas gracias,
AB
Sub supprime_hyperliens()
'
' supprime_hyperliens Macro
' Macro enregistrée le 07/09/2006 par AB'
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Lien hypertexte")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Save
ActiveDocument.Close
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
AB
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB Sub supprime_liens_hypertexte() For i = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(i).Select For j = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(j).Delete Next j Next i Selection.WholeStory For j = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(j).Delete Next j End Sub
"AB" a écrit dans le message de news:
Hello la compagnie,
La macro ci-après supprime tous les liens hypertexte d'un document, l'enregistre et le ferme, *sauf* si les hyperliens sont dans une zone de texte. Si quelqu'un a une idée pour qu'elle fonctionne *aussi* dans les zones de texte, ça m'arrangerait pas mal. (Car après, j'envoie cette macro via la batchmacro d'Anacoluthe (une idée absolument géniale !) sur environ 500 documents). Muchas gracias, AB
Sub supprime_hyperliens() ' ' supprime_hyperliens Macro ' Macro enregistrée le 07/09/2006 par AB' Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Lien hypertexte") Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveDocument.Save ActiveDocument.Close End Sub
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro pour
supprimer tous les liens hypertexte d'un document. Pas très élégant (je
traite d'abord les zones de texte, puis le "reste" du document), mais ça
marche. Le texte du lien est préservé, mais le lien lui-même est supprimé.
AB
Sub supprime_liens_hypertexte()
For i = 1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Select
For j = 1 To Selection.Hyperlinks.Count
Selection.Hyperlinks(j).Delete
Next j
Next i
Selection.WholeStory
For j = 1 To Selection.Hyperlinks.Count
Selection.Hyperlinks(j).Delete
Next j
End Sub
"AB" <ABspamophobe1@marseille.com> a écrit dans le message de news:
ekHO1og0GHA.1568@TK2MSFTNGP03.phx.gbl...
Hello la compagnie,
La macro ci-après supprime tous les liens hypertexte d'un document,
l'enregistre et le ferme, *sauf* si les hyperliens sont dans une zone de
texte.
Si quelqu'un a une idée pour qu'elle fonctionne *aussi* dans les zones de
texte, ça m'arrangerait pas mal. (Car après, j'envoie cette macro via la
batchmacro d'Anacoluthe (une idée absolument géniale !) sur environ 500
documents).
Muchas gracias,
AB
Sub supprime_hyperliens()
'
' supprime_hyperliens Macro
' Macro enregistrée le 07/09/2006 par AB'
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Lien hypertexte")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Save
ActiveDocument.Close
End Sub
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB Sub supprime_liens_hypertexte() For i = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(i).Select For j = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(j).Delete Next j Next i Selection.WholeStory For j = 1 To Selection.Hyperlinks.Count Selection.Hyperlinks(j).Delete Next j End Sub
"AB" a écrit dans le message de news:
Hello la compagnie,
La macro ci-après supprime tous les liens hypertexte d'un document, l'enregistre et le ferme, *sauf* si les hyperliens sont dans une zone de texte. Si quelqu'un a une idée pour qu'elle fonctionne *aussi* dans les zones de texte, ça m'arrangerait pas mal. (Car après, j'envoie cette macro via la batchmacro d'Anacoluthe (une idée absolument géniale !) sur environ 500 documents). Muchas gracias, AB
Sub supprime_hyperliens() ' ' supprime_hyperliens Macro ' Macro enregistrée le 07/09/2006 par AB' Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Lien hypertexte") Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveDocument.Save ActiveDocument.Close End Sub
Oliv'
*AB que je salut a écrit *:
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks aHyperlink.Delete Next aHyperlink End Sub
*AB <ABspamophobe1@marseille.com> que je salut a écrit *:
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro
pour supprimer tous les liens hypertexte d'un document. Pas très
élégant (je traite d'abord les zones de texte, puis le "reste" du
document), mais ça marche. Le texte du lien est préservé, mais le
lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks
aHyperlink.Delete
Next aHyperlink
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks aHyperlink.Delete Next aHyperlink End Sub
Oui, ça marche, et ton code est plus élégant que le mien. Mais ça ne marche que pour les liens dans du texte "normal". Les liens situés dans une zone de texte ne sont pas supprimés. A+ AB
"Oliv'" <(supprimerceci) a écrit dans le message de news: O%
*AB que je salut a écrit *:
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks aHyperlink.Delete Next aHyperlink End Sub
Oui, ça marche, et ton code est plus élégant que le mien. Mais ça ne marche
que pour les liens dans du texte "normal". Les liens situés dans une zone de
texte ne sont pas supprimés.
A+
AB
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: O%23G53gm0GHA.4580@TK2MSFTNGP05.phx.gbl...
*AB <ABspamophobe1@marseille.com> que je salut a écrit *:
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro
pour supprimer tous les liens hypertexte d'un document. Pas très
élégant (je traite d'abord les zones de texte, puis le "reste" du
document), mais ça marche. Le texte du lien est préservé, mais le
lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks
aHyperlink.Delete
Next aHyperlink
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oui, ça marche, et ton code est plus élégant que le mien. Mais ça ne marche que pour les liens dans du texte "normal". Les liens situés dans une zone de texte ne sont pas supprimés. A+ AB
"Oliv'" <(supprimerceci) a écrit dans le message de news: O%
*AB que je salut a écrit *:
Bonjour à tous,
Pour ceux qui seraient confrontés au même problème, voici une macro pour supprimer tous les liens hypertexte d'un document. Pas très élégant (je traite d'abord les zones de texte, puis le "reste" du document), mais ça marche. Le texte du lien est préservé, mais le lien lui-même est supprimé. AB
et avec un code comme cela ca ne fonctionne pas ?
Sub suphyper()
For Each aHyperlink In ActiveDocument.Hyperlinks aHyperlink.Delete Next aHyperlink End Sub