VBA: sélection des pieds de page

Le
Jac
Bonjour à tous,

dans un document configuré avec les entêtes et pieds de page de la première
page différents, j'ai besoin de sélectionner le pied de page de la première
page puis celui des pages suivantes. Il n'y a qu'une seule section dans le
document. Pour la première page, j'active son pied de page par

ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès wdSeeknextPageHeader,
wdSeeksecondPageHeader.

Merci d'avance à qui pourrait me dire quelle parole magique je dois employer
pour y arriver. L'aide et les bouquins consultés sont assez évasifs sur ce
point

Jac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jac
Le #1589776
J'ai trouvé quelque chose qui fonctionne

ActiveWindow.Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Mais il reste peut-être une façon plus académique d'y arriver...

"Jac"
Bonjour à tous,

dans un document configuré avec les entêtes et pieds de page de la
première page différents, j'ai besoin de sélectionner le pied de page de
la première page puis celui des pages suivantes. Il n'y a qu'une seule
section dans le document. Pour la première page, j'active son pied de page
par

ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès wdSeeknextPageHeader,
wdSeeksecondPageHeader.

Merci d'avance à qui pourrait me dire quelle parole magique je dois
employer pour y arriver. L'aide et les bouquins consultés sont assez
évasifs sur ce point...

Jac


Anacoluthe
Le #1589772
Bonjour !

'Jac' nous a écrit ...
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès wdSeeknextPageHeader,
wdSeeksecondPageHeader.


Si on reprend votre méthode votre pied de page (pdp) est :
ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter

Ce terme wdSeekPrimaryFooter ( pdp primaire par opposition aux pdp
secondaires tels première-page, page paire ) est fourni par
l'autocomplétion de SeekView= ou trouvé dans l'explorateur d'objet.

La question est de savoir si vous devez absolument afficher ce pdp
pour travailler dedans. Avant WD2007 c'est en général inutile...

Anacoluthe
« Même un cul-de-jatte peut prendre son pied »
- Pierre DORIS

Circé
Le #1589771
Bonjour Jac,

Je pense que c'est :
ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter

Primaryfooter étant le pied de page principal.

Circé
http://faqword.free.fr

Jac avait soumis l'idée :
Bonjour à tous,

dans un document configuré avec les entêtes et pieds de page de la première
page différents, j'ai besoin de sélectionner le pied de page de la première
page puis celui des pages suivantes. Il n'y a qu'une seule section dans le
document. Pour la première page, j'active son pied de page par

ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès wdSeeknextPageHeader,
wdSeeksecondPageHeader.

Merci d'avance à qui pourrait me dire quelle parole magique je dois employer
pour y arriver. L'aide et les bouquins consultés sont assez évasifs sur ce
point...

Jac


Circé
Le #1589770
Ouahhhhh anacoluthe, tu es revenu ?.... ;)))

Circé
Jac
Le #1589769
Merci Circé, c'est bien ça que je cherchais en vain.

"Circé"
Bonjour Jac,

Je pense que c'est :
ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter

Primaryfooter étant le pied de page principal.

Circé
http://faqword.free.fr

Jac avait soumis l'idée :
Bonjour à tous,

dans un document configuré avec les entêtes et pieds de page de la
première page différents, j'ai besoin de sélectionner le pied de page de
la première page puis celui des pages suivantes. Il n'y a qu'une seule
section dans le document. Pour la première page, j'active son pied de
page par

ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès
wdSeeknextPageHeader, wdSeeksecondPageHeader.

Merci d'avance à qui pourrait me dire quelle parole magique je dois
employer pour y arriver. L'aide et les bouquins consultés sont assez
évasifs sur ce point...

Jac




Jac
Le #1589768
Merci.

"Anacoluthe"
Bonjour !

'Jac' nous a écrit ...
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès
wdSeeknextPageHeader, wdSeeksecondPageHeader.


Si on reprend votre méthode votre pied de page (pdp) est :
ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter

Ce terme wdSeekPrimaryFooter ( pdp primaire par opposition aux pdp
secondaires tels première-page, page paire ) est fourni par
l'autocomplétion de SeekView= ou trouvé dans l'explorateur d'objet.

La question est de savoir si vous devez absolument afficher ce pdp
pour travailler dedans. Avant WD2007 c'est en général inutile...

Anacoluthe
« Même un cul-de-jatte peut prendre son pied »
- Pierre DORIS



Geo
Le #1589766

Ce terme wdSeekPrimaryFooter ( pdp primaire par opposition aux pdp
secondaires tels première-page, page paire )


Pas évident tout ça, mais c'est vrai que chez les anglo-saxons, le
primaire est le secondaire, à moins que ce ne soit l'inverse.

La question est de savoir si vous devez absolument afficher ce pdp
pour travailler dedans. Avant WD2007 c'est en général inutile...


Disons que pour 2007, c'est un bogue.

--
A+

Jac
Le #1589763
...
La question est de savoir si vous devez absolument afficher ce pdp
pour travailler dedans. Avant WD2007 c'est en général inutile...


En fait j'ai besoin de le sélectionner pour tout sélectionner puis faire
un Fields.Unlink.

En fait la manip est la suivante :
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
ActiveWindow.Selection.WholeStory
ActiveWindow.Selection.Fields.Unlink

Mais si ça peut se faire autrement, je suis preneur.


"Anacoluthe"
Bonjour !

'Jac' nous a écrit ...
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
qui me donne le même résultat qu'avec wdSeekCurrentPageHeader.

Mais je n'arrive pas à atteindre le pied de page du reste du document qui
commence à la deuxième page. J'ai essayé sans succès
wdSeeknextPageHeader, wdSeeksecondPageHeader.


Si on reprend votre méthode votre pied de page (pdp) est :
ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter

Ce terme wdSeekPrimaryFooter ( pdp primaire par opposition aux pdp
secondaires tels première-page, page paire ) est fourni par
l'autocomplétion de SeekView= ou trouvé dans l'explorateur d'objet.

La question est de savoir si vous devez absolument afficher ce pdp
pour travailler dedans. Avant WD2007 c'est en général inutile...

Anacoluthe
« Même un cul-de-jatte peut prendre son pied »
- Pierre DORIS



Anacoluthe
Le #1589761
Bonjour !

'Jac' nous a écrit ...
En fait la manip est la suivante :
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageFooter
ActiveWindow.Selection.WholeStory
ActiveWindow.Selection.Fields.Unlink

Mais si ça peut se faire autrement, je suis preneur.


Activedocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Unlink

Anacoluthe
« Pourquoi faire simple quand on peut faire compliqué ? »
- Jacques ROUXEL

Anacoluthe
Le #1589758
Hello !

'Circé' nous a écrit ...
Ouahhhhh anacoluthe, tu es revenu ?.... ;)))


8-)

Anacoluthe
« Seuls les retours méritent une larme. »
- Christian MISTRAL

Publicité
Poster une réponse
Anonyme