Renseigner un document WORD à partir d'ACCES

[kyrine]

Bonjour,

J'ai actuellement un suivi qui se fait par ACCESS et WORD.
En faite, on ouvre une activité sous ACCESS, puis on saisie un recapitulatif dans un document WORD suivant un modele(redondance).
l'edition d'un etat ne peut etre faite car apres ce document Word vit avec le client concerné (ajout de commentaire, changement de valeur, versionning ....). J'aimerais remplir ce document WORD à partir de ACCESS une fois que la saisie est validé pour eviter cette redondance.

Je sais ouvrir le document concerné, mais je suis incapable de repérer les checkbox, les tableaux et autres joyeusetés de word.

je sais parcourir mon document avec des boucles de ce style

Code :

1
2
3
4
5
 
Set WordDoc = AppWord.Documents.Open(C:\TOTO.DOC)
For Each p In WordDoc.Paragraphs
        Debug.Print p.Range.Text
Next

mais il affiche du code bizarre lorsqu'il tombe sur un controle

Quelqu'un saurait me dire ou je peux trouver les fonctions qui me font defaut
afin de traiter mon doc par automation ?

[Heureux-oli]

Le contrôle n'appartient pas à la collection Pragraphs !!

Je viens d'essayer, mis à part le

Code :

Dim p as Paragraph

Je ne vois rien qui manque. Et ton code tourne nickel chez moi !
[edit]
Si tu rencontre un tableau, alors il y a un souci.
Il faudrait exclure les tableau de la boucle.
[/edit]

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
Sub TestPara()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
p.Range.Select
 
If Selection.Information(wdWithInTable) = False Then Debug.Print p.Range.Text
Next p
 
End Sub

Après essai !!