Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

supprimer liens hypertexte *aussi* dans les zones de texte

3 réponses
Avatar
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

3 réponses

Avatar
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



Avatar
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


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
AB
Salut Oliv,

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


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~