Publipostage VBA - Acces vers Word
Bonjour à tous,
Un petit soucis que j'arrive pas à règler avec tous les tuto et aide sur le forum
D'ACCES vers WORD - une requête de regroupement avec plusieurs nbre X de résultats avec un doc Word, et j'aimerai une page par résultat (Requête)
Du style SAUT de pages après chaque entrée de la requete
Requete : Export_pzt
Doc Word : test.dotx - avec marqueur
------------------
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Sub Exportword()
'Dim wApp As Word.Application --- c'est quoi le problème
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT * from Export_pzt"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = CreateObject("Word.Application")
chemin = CurrentProject.Path
wApp.Visible = True
While Not rs.EOF
With wApp
.Documents.Open FileName:="Y:\nomdudoc.dotx"
.ActiveDocument.Bookmarks("Matchcode").Range.Text = rs.Fields("Matchcode")
.ActiveDocument.Bookmarks("PalUnique").Range.Text = rs.Fields("PalUnique")
.ActiveDocument.Bookmarks("Bezeichnung").Range.Text = rs.Fields("Bezeichnung")
'.ActiveDocument.Bookmarks("Bezeich").Range.Text = rs.Fields("Bezeich")
.ActiveDocument.Bookmarks("VersionSplit").Range.Text = rs.Fields("VersionSplit")
.ActiveDocument.Bookmarks("Auflage").Range.Text = rs.Fields("Auflage")
rs.MoveNext
End With
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Set wApp = Nothing
End Sub |
Merci pour votre aide
Code fonctionne, mais à moitié...
Bonjour,
Entre temps j'ai réussi à faire fonctionner le code.
Mais, parce qu'il y a un mais, tout les enregistrement se font dans le même document Word= la m^eme page.
Idéalement, j'aimerai obtenir un document avec une page par enregistrement.
Comment faire ?
Merci pour votre aide