WORD VB Comment supprimer des liaisons dans l'en-tête?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : WORD VB Comment supprimer des liaisons dans l'en-tête?

TPI

Salut,
J'ai un fichier Word 2003 qui contient des liaisons avec un fichier excel
Je voudrais supprimer ces liaisons avec cette macro :

Sub Macro1()
ActiveDocument.Fields.Unlink
End Sub

Mais il ne me supprime pas toutes les liaisons presentes! Celles de l'en-tête restent! :cry:
Existe t il une commande pour supprimer ces liaisons dans l'en-tête?
Merci d'avance!

Publicité

kiki29

Salut, à tenter

Option Explicit

Sub Tst()
Dim afield As Field
For Each afield In ActiveDocument.Fields
afield.LinkFormat.BreakLink
Next afield
End Sub

Message cité 1 fois
Message édité par kiki29 le 05-08-2010 à 10:10:57

TPI

kiki29 a écrit :

Salut, à tenter

Option Explicit

Sub Tst()
Dim afield As Field
For Each afield In ActiveDocument.Fields
afield.LinkFormat.BreakLink
Next afield
End Sub

Merci mais ca n'a pas marché! :sweat:
Il supprime toutes les liaisons de texte mais toujours pas les en-têtes!

kiki29

Re, à tenter également

Sub SupprimerContenuHeader()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary).Range.Text = ""
s.Headers(wdHeaderFooterEvenPages).Range.Text = ""
s.Headers(wdHeaderFooterFirstPage).Range.Text = ""
Next s
End Sub

Message cité 1 fois
Message édité par kiki29 le 05-08-2010 à 14:11:12

TPI

kiki29 a écrit :

Re, à tenter également

Sub SupprimerContenusHeader()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary).Range.Text = ""
s.Headers(wdHeaderFooterEvenPages).Range.Text = ""
s.Headers(wdHeaderFooterFirstPage).Range.Text = ""
Next s
End Sub

Hummmmm on s'approche mais ce coup là ca romp la liaison mais ca me supprime aussi la valeur!!! :pt1cable:
Ne pas s'enerver... ne pas s'enerver... :ange:

TPI

Petit up...
On sait jamais!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

WORD VB Comment supprimer des liaisons dans l'en-tête?

Sujets relatifs
Mise à jour de Signet Word	récupérer des chiffres dans word sous excel
[Résolu] Problème concaténation et chemin vers autre classeur	[VB.net] Reload, refresh form après changement de la langue
INTRODUIRE une base de donnée dans Le VB	[VB.NET] Affichage MsChart continuellement mis a jour
Supprimer une clef registre avec un batch ?	supprimer ou déplacer des fichier par leur extension
supprimer ou déplacer des fichier par leur extension	[VB.net] Renommer section fichier .ini
Plus de sujets relatifs à : WORD VB Comment supprimer des liaisons dans l'en-tête?

Page générée en 0.038 secondes