Créer des entêtes et pied de page pour word avec une macro

Question

Salut tous le monde

Je viens juste de découvrir Visual Basic à l'aide de word dans le cadre de mon travail et je ne sais pas comment faire pour créer des entêtes et des pieds de page.
Si quelqu'un sait également comment faire pour accéder à ces entêtes lorsqu'ils sont déjà créés et comment faire pour insérer un saut de section.

Merci d'avance à vous tous.

cs_liquide · Answer

salut, quand je veux travailler avec word et ses composants, je crée des macros et les sauvegarde. Ces macro, t'ecrivent un code pour accéder a divers "trucs" dans word, tu peux recuperer le texte de tes macros via visual-basic editor et le copier dans des evnements tel que le click d'un bouton, ou bien même faire un appel de la macro ( Call marco2). elle sera executée. c'est ainsi que je peux récupérer la macro qui me met des entetes et pied de page, j'ai aussi crée un bouton: Private Sub CommandButton1_Click() Call macro2 End Sub Sub Macro2() ' ' Macro2 Macro ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.TypeText Text:="32321321213" If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.TypeText Text:="poipoipoi" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub ou bien alors ce qui revient au même, j'ai supprimé la macro tout en copier le code dans bouton directement et dans l'evenement click Private Sub CommandButton1_Click() If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.TypeText Text:="32321321213" If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.TypeText Text:="poipoipoi" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Bien évidement, je n'arriverais pas, ou je mettrais du temps pour programmer dans word même avec VB6 si je n'avais pas cette aide. tout se passe de la même manière même pour les sauts de pages Sub Macro1() ' ' Macro1 Macro ' Selection.InsertBreak Type:=wdPageBreak End Sub bonne prog liquide

titoi2 · Answer

Merci beaucoup

Créer des entêtes et pied de page pour word avec une macro

2 réponses

Discussions similaires