Discussion :

[Sebastien_INR59]

Bonjour,


J'envoie des graphiques Access vers Word de cette facon:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
    .Visible = True 'ou FALSE
    .Documents.Add
 
    Me.Graph1.Action = acOLECopy
    .Selection.Paste
End With
Set W_App = Nothing

J'aimerais faire la même chose pour envoyer le contenu d'une zone de texte vers Word... du genre Me.MaZoneDeTexte ....

Mais je ne sais pas quelle syntaxe utilisée ? Pourriez vous m'aider ?


Cordialement.
Sébastien

[pgz]

Bonjour,

La première chose est de se positionner à l'endroit où on veut insérer du texte. En général on utilise des signets. Dans ce cas

Code :

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

            wdapp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte"

Ensuite pour insérer du texte c'est comme

Code :

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

wdapp.Selection.InsertBefore (Me.ZoneDeTexte)

Bon courage,

PGZ

[Sebastien_INR59]

Ok, merci