Suppression liens en-tête/pied de page [Résolu]

[did103]

Bonjour

Pour supprimer les liens (avec un classeur excel) dans un document je fais:

Code :

1
2
3
        With ActiveDocument.Range.Fields
            .Unlink
        End With

Cela marche bien, mais c'est inefficace sur les liens des infos contenues dans l'en-tête ou le pied de page.

J'ai essayé ceci:

Code :

1
2
3
4
5
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.WholeStory
        With Selection.Fields
            .Unlink
        End With

Mais ça ne marche pas...

QQ'un sait-il faire ?

[Heureux-oli]

WholeStory renvoie l'article principal de ton document.

Pour l'entête ou le pied de page la méthode que tu utilise n'est pas la bonne.
Il arrive que l'enregistreur de macro se trompe.

Code :

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields.Unlink

Pour te mettre sur la piste.

Dans mon exemple, je traite la première section, tu peux faire une boucle pour chaque section.
Si tes en-tête ou pieds de pages sont différents pour la première page et pour les pages paires et impaires, tu devras probablement répéter l'opération.

[Sepia]

Salut,

Pour les entêtes et les pieds de page, comme le dit Heureux-Oli, tu as plusieurs cas :

• wdHeaderFooterPrimary - Pour les entêtes standards
• wdHeaderFooterEvenPages - Pour une entête différente sur les pages paires et impaires d'une section (propriété de section = OddAndEvenPagesHeaderFooter)
• wdHeaderFooterFirstPage - Pour une entête différente sur la 1ere page d'une section (propriété de section = DifferentFirstPageHeaderFooter)

A+

[did103]

Merci à vous pour ces infos.