David78390
Messages postés197Date d'inscriptionjeudi 27 avril 2006StatutMembreDernière intervention10 juillet 2011 22 juil. 2007 à 16:45
pour info, avec Projet\Reference\ Microsoft office X.XX object library
'Ouvrir une appli word
Set wordapp = CreateObject("Word.Application") '-- ouvre une session Word
'Rendre visible
' wordapp.Visible = True
'ouvre le fichier word
Set worddoc = wordapp.Documents.Open(App.Path + "\NomFichierWord.doc")
' Empêche les alertes (pour la sauvegarde, modif ou autre)...
worddoc.Application.DisplayAlerts = False
'Se placer sur la 1eme page
worddoc.ActiveWindow.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=1
'acceder a l'entete
worddoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'acceder au pied de page
worddoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter