OVH Cloud OVH Cloud

Access et Word

1 réponse
Avatar
gerard v
bonsoir

Depuis access, j'ouvre un document Word

Set objWord = CreateObject("Word.Application")
objWord.Documents.Open Chem

dans lequel j'ai des champs ( signet : Nom; Signet : Prenom....)
je remplis ces champs automatiquement
'initialisation des signets
objWord.Selection.GoTo wdGoToBookmark, , , "Nom"
' mettre la valeur dans le signet
objWord.Selection.TypeText TxtNom.Value
voila mon probleme:
les signets sont remplacé par les valeur, alors que je voudrais pouvoir
conserver les valeurs dans des signets.
et tout ca pour pouvoir faire l'operation dans l'autre sens remplir les
champs d'access a partir des signets du documents Word.
comment faire pour que les signets restent dans le document Word avec leur
nom et remplis des valeurs prevus.

j'espere avoir ete assez clair
merci pour votre aide
gerard

1 réponse

Avatar
Raymond
Bonjour.

Utilise Selection.InsertAfter
tu as des exemples sur : http://access.seneque.free.fr/signets1.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventionssur MPFA


"gerard v" a écrit dans le message de
news:bodvd7$9rh$
bonsoir

Depuis access, j'ouvre un document Word

Set objWord = CreateObject("Word.Application")
objWord.Documents.Open Chem

dans lequel j'ai des champs ( signet : Nom; Signet : Prenom....)
je remplis ces champs automatiquement
'initialisation des signets
objWord.Selection.GoTo wdGoToBookmark, , , "Nom"
' mettre la valeur dans le signet
objWord.Selection.TypeText TxtNom.Value
voila mon probleme:
les signets sont remplacé par les valeur, alors que je voudrais pouvoir
conserver les valeurs dans des signets.
et tout ca pour pouvoir faire l'operation dans l'autre sens remplir les
champs d'access a partir des signets du documents Word.
comment faire pour que les signets restent dans le document Word avec leur
nom et remplis des valeurs prevus.

j'espere avoir ete assez clair
merci pour votre aide
gerard