Discussion :

[mickmix69]

bonjour à tous,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[belocom]

Et en essayant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

modifierTexteChampFormulaire("dem_essai", "test")

[mickmix69]

non ca ne marche toujours pas....

[belocom]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mickmix69]

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

++

[mickmix69]

Bonjour à tous

Finalement je suis passé par l'utilisation des signets

J'y accede comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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