Publipostage sous word

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.