modifier un champ word

bonjour à tous,:salut:

je voudrais modifier mes champs contenu sur mon doc word en passant par le nom et non par leur index

les champs sont des DOCPROPERY

voici ce que j utilise :

Code:

---

1 2 3 4 5 6 7

Public Sub modifierTexteChampFormulaire(ByVal nomchamp As String, ByVal texte As String) 'atteind le champ 'nomchamp' et remplace le texte par 'texte' Dim field As Object   field = nomchamp oWord.ActiveDocument.FormFields.Item(field).Result = texte End Sub

---

et j apelle la fonction :

Code:

---

modifierTexteChampFormulaire("DOCPROPERTY dem_essai", "test")

---

et la Vb me dit que le membre de la collection requis n'existe pas.

peut etre que je me trompe sur la syntax pour le nom du champ...

merci de votre aide!:D

Et en essayant :

Code:

---

modifierTexteChampFormulaire("dem_essai", "test")

---

non ca ne marche toujours pas....

Sur le lien : http://www.info-3000.com/word/vbadiverseastuce.php, il semble que la syntaxe soit :

Code:

---

oWord.ActiveDocument.FormFields(field).Result = texte

---

salut,

on ne peut pas utiliser directement formfields(field).select
mais plutot formfields.item(field).select

enfin je vais passer par les index en utilisant fields.item(1).select

Si quelqu'un trouve quelquechose je suis preneur...merci beaucoup

++ ;)

Bonjour à tous

Finalement je suis passé par l'utilisation des signets

J'y accede comme ceci :

Code:

---

1 2 3

For i = 1 To 6 remplaceSignet(nomSignet(i), texte(i)) Next i

---

Code:

---

1 2 3 4 5 6 7

Public Function remplaceSignet(ByVal nomSignet, ByVal texte) If mydoc.Bookmarks.Exists(nomSignet) = True Then mydoc.Bookmarks.Item(nomSignet).Select() oWord.Selection.Text = texte Return 0 End If End Function

---

Par contre il faut bien penser à utiliser item car contraiement aux codes sur le net bookmarks("texte...").select ne marche pas

Merci a tous ;)

mickmix69

Alors à qui se fier !!! Merci pour ta solution.