Les fonctionnalités standard de fusion et publipostage de Word vous permettent de fusionner directement sur une imprimante ou dans un nouveau document. En fonction de votre version et de votre installation de Word, vous pouvez également fusionner avec une série de messages électroniques. (Chaque enregistrement de la source de données créerait un message électronique individuel.)

Il peut cependant arriver que vous deviez créer un document individuel pour chacun des enregistrements de source de données. Malheureusement, Word ne fournit pas un moyen de le faire. Heureusement, vous pouvez créer une macro pour vous charger de la tâche. Voici une macro qui «séparera» un document créé par la fonction de fusion et publipostage. Chaque section du document (il y a une section par enregistrement de source de données) est extraite et enregistrée dans son propre fichier de document.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

Lorsque la macro est exécutée, elle crée une série de fichiers nommés Ltr001 à Ltrxxx, où xxx est le nombre de sections dans le document d’origine.

En fait, la macro crée un fichier « Ltr » moins que le nombre de sections dans le document. La dernière section du document est laissée dans le fichier d’origine (celui que vous traitez). Si vous souhaitez modifier le nom de fichier ou l’emplacement d’enregistrement des fichiers, modifiez le paramètre de la variable BaseName dans la macro.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1326) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Creating_Files_with_Mail_Merge [Création de fichiers avec publipostage].