Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word break a link

break a link

6 réponses
Avatar
Louis
Bonjour =E0 tous
via Visual Basics, j'int=E8gre des donn=E9es Excel dans un=20
document Word, puis je supprime le lien. Tout va bien pour=20
les tableaux et graphiques, mais pas pour les en-t=EAtes et=20
pieds de pages. Quelqu'un conna=EEt-il la solution?
Voici ma macro:
For Each xldata In ActiveDocument.Fields
xldata.LinkFormat.Update
xldata.LinkFormat.BreakLink
Next xldata

1000 mercis d'avance
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Guy Moncomble
Bonjour à tous,
dans le message 12df01c3fb91$b35333f0$,

| Bonjour à tous
| via Visual Basics, j'intègre des données Excel dans un
| document Word, puis je supprime le lien. Tout va bien pour
| les tableaux et graphiques, mais pas pour les en-têtes et
| pieds de pages. Quelqu'un connaît-il la solution?
| Voici ma macro:
| For Each xldata In ActiveDocument.Fields
| xldata.LinkFormat.Update
| xldata.LinkFormat.BreakLink
| Next xldata
|
| 1000 mercis d'avance

Peut-être qu'en traçant ce que tu fais vraiment dans ton bloc
d'instructions, par exemple en sélectionnant les champs en question, vas
tu t'apercevoir qu'il faut procéder autrement dans les en-têtes et pieds
de page. J'ai dit peut-être ...
--
A+

G.M. MVP Word
Avatar
Nico
bonjour,
c'est normal car les champs concernés sont stockés au niveau des footers et
headers de chaque section :
tu dois parcourir chaque section et pour chacune, paarcourir le corps de
doc, l'entête et le pied de page :
For Each thissection In Application.ActiveDocument.Sections

For Each xldata In thissection .Fields
xldata.LinkFormat.Update
xldata.LinkFormat.BreakLink
Next xldata

For Each thisfooter In thissection.Footers
For Each xldata In thisfooter.Fields
xldata.LinkFormat.Update
xldata.LinkFormat.BreakLink
Next xldata
Next thisfooter

For Each this_header In thissection.Headers
For Each xldata In this_header.Fields
xldata.LinkFormat.Update
xldata.LinkFormat.BreakLink
Next xldata
Next this_header
Next thissection

Nicolas
Avatar
merci bcp les gars, mais ça n'a pas l'air de marcher. Tant
pis.

-----Message d'origine-----
Bonjour à tous
via Visual Basics, j'intègre des données Excel dans un
document Word, puis je supprime le lien. Tout va bien
pour

les tableaux et graphiques, mais pas pour les en-têtes et
pieds de pages. Quelqu'un connaît-il la solution?
Voici ma macro:
For Each xldata In ActiveDocument.Fields
xldata.LinkFormat.Update
xldata.LinkFormat.BreakLink
Next xldata

1000 mercis d'avance
.



Avatar
Anacoluthe
Bonjour !

'' nous a écrit ...
merci bcp les gars, mais ça n'a pas l'air de marcher. Tant
pis.


Tu ne cherchais pas tout simplement à faire :

Sub DechampeTout()
For Each SR In ActiveDocument.StoryRanges
SR.Fields.Unlink
Next oRange
End Sub

Anacoluthe
« Mon âme épuise le champ
du possible. »
- PINDARE

Avatar
Anacoluthe
Bonjour ! pardon

'' nous a écrit ...
merci bcp les gars, mais ça n'a pas l'air de marcher. Tant
pis.


Tu ne cherchais pas tout simplement à faire :

Sub DechampeTout()
For Each SR In ActiveDocument.StoryRanges
SR.Fields.Unlink
Next SR
End Sub

Anacoluthe
« Mon âme épuise le champ
du possible. »
- PINDARE

Avatar
Impeccable!

merci pour votre aide!

Louis
-----Message d'origine-----
Bonjour !

'' nous a écrit ...
merci bcp les gars, mais ça n'a pas l'air de marcher.
Tant


pis.


Tu ne cherchais pas tout simplement à faire :

Sub DechampeTout()
For Each SR In ActiveDocument.StoryRanges
SR.Fields.Unlink
Next oRange
End Sub

Anacoluthe
« Mon âme épuise le champ
du possible. »
- PINDARE
.