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

Marsh Posté le 05-08-2010 à 07:21:26

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!

Reply

Marsh Posté le 05-08-2010 à 07:21:26

Reply

Marsh Posté le 05-08-2010 à 10:09:30

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

Reply

Marsh Posté le 05-08-2010 à 11:53:08

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!

Reply

Marsh Posté le 05-08-2010 à 14:00:33

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

Reply

Marsh Posté le 05-08-2010 à 14:14:09

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:

Reply

Marsh Posté le 31-08-2010 à 07:32:50

Petit up...
On sait jamais!

Reply

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

Sujets relatifs:

Leave a Replay