pour trouver l'indice de ton champ une petite fonction:
function trouveindex(temp) as integer
dim afields()
fcount=activedocument.fields.count
redim afields(fcount)
trouvechamp=false
i=1
do
if activedocument.fields(i).result="toto" then trouvechamp=true
i=i+1
loop while trouvechamp=false
i=i-1
trouveindex=i
end function 'toto etant le texte de ton champ
MAINTENANT SI TU VEUX REMPLACER LE CONTENU DE TON CHAMP PAR AUTRE CHOSE JE CROIS QUE TU NE PEUT PAS LES CHAMPS ETANT E LECTURE SEULE MAIS ON PEUT PROCEDER AUTREMENT EN EFFACANT LE CHAMP PUIS EN EN CREANT UN AUTRE AVEC LE NOUVEAU CONTENU :
si tu veux que le champ "toto" soit remplacer par le champ "coucou"
sub jj
temp="coucou"
activedocument.fields(trouveindex(toto)).delete
selection.fields.add_ range:=selection.range,type:=wdfieldusername,_ text:=temp,preserveformatting:=true end sub
navarro
Sylderon a écrit a écrit :
Je reviens sur ce que j'ai écrit + haut: rien à voir avec les signets si tu utilses Word97 & +
Un exemple de code pour voir les codes de champs de ton doc.
Dim fld As Field
For Each fld In ActiveDocument.Fields
Debug.Print fld.Code
Next
Tu trouveras les méthodes et propriétés liées tout seul je pense
A+
nur:en fait les champs que j'ai sont prefaits et je ne connais pas l'ordre mais je retiends ta solution tt de meme
Sylderon:je pense que c bon mais en fait moi je dois ecrit ds un champs de word en fait recopier une case d'excel ds un champ et ton exemple permet juste de lire le contenu des champs. Moi je dois ecrire dedans
Comment je peux faire cela?
Merci
navarro
hummm....merci les amis je m'occupe de ca et je vous tiens au courrant
Je termine l'histoire du chemin
Franchement Merci a tous
nur
Si tu connais l'indice de ton champ word (par ordre de création)
alors:temp=activedocument.fields(1).result ' ( 1 est l'indice)
'temp contient la valeur du champ
Sylderon
Je reviens sur ce que j'ai écrit + haut: rien à voir avec les signets si tu utilses Word97 & +
Un exemple de code pour voir les codes de champs de ton doc.
Dim fld As Field
For Each fld In ActiveDocument.Fields
Debug.Print fld.Code
Next
Tu trouveras les méthodes et propriétés liées tout seul je pense
A+
Sylderon
Je crois me souvenir qu'il faut utiliser les fonctions relatives aux signets pour lire les valeurs des champs en VBA.
Si je retrouve qqchose de + précis je reviendrais.
A+
navarro
Les pro du BVA une idee?
navarro
par contre si qqun la ca m'interresse
Merci
navarro
Les pro du VBA j'ai besoin de vous
Merci
navarro
hum....j'ai rien trouver Si qqun peu m'aider Merci
navarro
ok je vais aller voir
Merci
macray
:hello: je ne connais pas la réponse mais essaye d'aller sur le
sites
et qui sait tu trouveras ton aide, car j'avoue ne pas connaitre... [:macray]
navarro
Svpl un ptti coup de pouce
navarro
toujours personne?
navarro
En fait c'est pour palier le probleme du publipostage que j'avais
Merci a ces qu'ils peuvent me renseigner
navarro
Une petite aide svpl merci
navarro
Bonjour, Dans Word il y a une option CHAMPS pour inserer par exemple la date, le nom de l'utilisateur....
J'aimerais connaite le commande en vb qui accede a ce champ.
pour pouvoir lui donner la valeur que je veux.
Merci
