Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access bibliothèque word

bibliothèque word

4 réponses
Avatar
etienne.remond
bonjour

je fais du vb sous access et j'utilise la bibliothèque word 9.0

je voudrais connaître le bout de code vb qui permet, après avoir ouvert un
document word existant, d'insérer un pied de page (et une entete aussi)

si quelqu'un sait merci de le partager

etienne
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonjour.

les ordres word à inclure dans ton objet word.application Wapp sont les
suivants

Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Wapp.Selection.TypeText Text:="Entête de page"
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Wapp.Selection.TypeText Text:="Bas de page"
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"etienne.remond" a écrit dans le message de
news:%
bonjour

je fais du vb sous access et j'utilise la bibliothèque word 9.0

je voudrais connaître le bout de code vb qui permet, après avoir ouvert un
document word existant, d'insérer un pied de page (et une entete aussi)

si quelqu'un sait merci de le partager

etienne




Avatar
etienne.remond
merci

et pour insérer des numéros de pages ?

"Raymond" a écrit dans le message de news:

Bonjour.

les ordres word à inclure dans ton objet word.application Wapp sont les
suivants

Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Wapp.Selection.TypeText Text:="Entête de page"
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Wapp.Selection.TypeText Text:="Bas de page"
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"etienne.remond" a écrit dans le message de
news:%
bonjour

je fais du vb sous access et j'utilise la bibliothèque word 9.0

je voudrais connaître le bout de code vb qui permet, après avoir ouvert
un


document word existant, d'insérer un pied de page (et une entete aussi)

si quelqu'un sait merci de le partager

etienne







Avatar
Raymond
Bonsoir.

Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ou
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Wapp.Selection.TypeText Text:="Page "
Wapp.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Wapp.Selection.TypeText Text:=" de "
Wapp.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
Wapp.Selection.TypeText Text:=" "
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

y-a-t-il encore autre chose ?
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"etienne.remond" a écrit dans le message de
news:

merci

et pour insérer des numéros de pages ?



Avatar
etienne.remond
merci beaucoup (ça marche !!!)


"Raymond" a écrit dans le message de news:
#0$
Bonsoir.

Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ou
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Wapp.Selection.TypeText Text:="Page "
Wapp.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Wapp.Selection.TypeText Text:=" de "
Wapp.Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldNumPages

Wapp.Selection.TypeText Text:=" "
Wapp.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

y-a-t-il encore autre chose ?
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"etienne.remond" a écrit dans le message de
news:

merci

et pour insérer des numéros de pages ?