Discussion :

[Benabdelkader]

Bonjour a toutes et à tous,

Voila, j'ai un formulaire Access 2010 qui contient (nom, prénom, tél, date_rdv, ....)
J'ai aussi un document Word 2010 qui a un texte type du genre Bonjour NOM,PRENOM, ...Je vous confirme que vous avez rendez vous le DATE_RDV etc etc

J'ai bien lu les explications pour rechercher un mot dans word et le remplacer par un autre
ici http://heureuxoli.developpez.com/off...-et-remplacer/

Mais moi ce que je cherche c'est remplacer plusieurs mots par des autres.

Pouvez vous m'aider?

J'ai pensé a faire une boucle et a chaque fois ouvrir le document Word remplacer un mot puis l'ouvrir etc mais cela me semble lourd et long si il y a plusieurs mots a remplacer.

Merci de votre aide.

[joe.levrai]

Bonjour,

si j'ai bien compris, tu veux automatiser un "rechercher / remplacer" dans un document Word, mais en effectuant cette tâche pour plusieurs valeurs différentes?

c'est à dire que ton document Word présente des champs génériques (nom, prénom etc...) et que tu veux utiliser ce modèle pour faire du publipostage?

dans ce cas, voici une proposition
je ne rentre pas dans les détails du "comment programmer la recherche et le remplacement", le tutoriel est là pour ça
le code n'est pas fonctionnel en l'état, il est algorithmique, juste pour te donner la méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim TabGenerique()
Dim TabRemplacement
Dim Valeur as String
Dim i as Integer
 
' la liste des mots génériques qu'on doit chercher dans word
TabGenerique = Array("Nom","Prenom","Age")
 
 
Redim TabRemplacement(Ubound(TabGenerique))
' on construit le tableau des valeurs de ton formulaire access
For Each Valeur in "Les contrôles de ton formulaire"
    TabRemplacement(i) = Valeur
    i = i + 1
Next Valeur
 
 
' ouverture du document word
 
For i = Lbound(TabGenerique) To Ubound(TabGenerique)
    ' Recherche du mot générique TabGenerique(i)
    ' Remplacement du mot générique TabGenerique(i) par la valeur de ton formulaire TabRemplacement(i)
Next i

[Benabdelkader]

Ok merci je vais tester cela.

Bonne journée