Le code permet de faire un publipostage sous word à partir d'un fichier ASP.
Le publipostage est réalisé à partir d'un modèle Word et un fichier texte avec les infomations.
On pourra soit enregistrer sous imprimer le résultat.
Source / Exemple :
Set AppWord = CreateObject("Word.Application")
AppWord.visible = True
AppWord.DisplayAlerts = True
Set ActiveDocument = AppWord.Documents.Open("url du modèle .dot")
ActiveDocument.Activate
' **** Ouverture de la source de données
ActiveDocument.MailMerge.OpenDataSource("url du fichier contenant les informations (ici .txt)")
'Paramétrage et lancement du publipostage
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute True
End With
Set DocumentResultat = AppWord.ActiveDocument
'DocumentResultat.PrintOut
DocumentResultat.SaveAs "nom du document résultant du publuipostage (.doc)"
DocumentResultat.Save
DocumentResultat.close
'Fermeture du doc
ActiveDocument.close
AppWord.Application.Quit
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.